Add examples

12 files changed, 440 insertions, 0 deletions

diff --git a/icestick/blink.vhdl b/icestick/blink.vhdl
new file mode 100644
index 0000000..d7e6dd4
--- /dev/null
+++ b/icestick/blink.vhdl
@@ -0,0 +1,23 @@
+architecture blink of leds is
+  signal clk_4hz: std_logic;
+begin
+  process (clk)
+    --  3_000_000 is 0x2dc6c0
+    variable counter : unsigned (23 downto 0);
+  begin
+    if rising_edge(clk) then
+      if counter = 2_999_999 then
+        counter := x"000000";
+        clk_4hz <= not clk_4hz;
+      else
+        counter := counter + 1;
+      end if;
+    end if;
+  end process;
+
+  led1 <= clk_4hz;
+  led2 <= clk_4hz;
+  led3 <= clk_4hz;
+  led4 <= clk_4hz;
+  led5 <= clk_4hz;
+end blink;
diff --git a/icestick/fixed1.vhdl b/icestick/fixed1.vhdl
new file mode 100644
index 0000000..b1bbf4b
--- /dev/null
+++ b/icestick/fixed1.vhdl
@@ -0,0 +1,4 @@
+architecture fixed1 of leds is
+begin
+  (led1, led2, led3, led4, led5) <= std_logic_vector'("00101");
+end fixed1;
diff --git a/icestick/leds.pcf b/icestick/leds.pcf
new file mode 100644
index 0000000..397bdc4
--- /dev/null
+++ b/icestick/leds.pcf
@@ -0,0 +1,6 @@
+set_io led1 99

+set_io led2 98

+set_io led3 97

+set_io led4 96

+set_io led5 95

+set_io clk 21

diff --git a/icestick/leds.vhdl b/icestick/leds.vhdl
new file mode 100644
index 0000000..95aa5cf
--- /dev/null
+++ b/icestick/leds.vhdl
@@ -0,0 +1,16 @@
+library ieee;
+use ieee.std_logic_1164.all;
+use ieee.numeric_std.all;
+
+--  Led positions
+--
+--  I         D3
+--  r
+--  D     D2  D5  D4
+--  A
+--            D1
+--
+entity leds is
+  port (clk : in std_logic;
+        led1, led2, led3, led4, led5 : out std_logic);
+end leds;
diff --git a/icestick/multi1.vhdl b/icestick/multi1.vhdl
new file mode 100644
index 0000000..a304765
--- /dev/null
+++ b/icestick/multi1.vhdl
@@ -0,0 +1,83 @@
+architecture multi1 of leds is
+  signal clk_4hz: std_logic;
+  signal clk_5sec : std_logic;
+  signal leds : std_ulogic_vector (1 to 5);
+begin
+  (led1, led2, led3, led4, led5) <= leds;
+
+  process (clk)
+    --  3_000_000 is 0x2dc6c0
+    variable counter : unsigned (23 downto 0);
+  begin
+    if rising_edge(clk) then
+      if counter = 2_999_999 then
+        counter := x"000000";
+        clk_4hz <= '1';
+      else
+        counter := counter + 1;
+        clk_4hz <= '0';
+      end if;
+    end if;
+  end process;
+
+  process (clk)
+    variable counter5 : unsigned (4 downto 0);
+  begin
+    if rising_edge (clk) then
+      clk_5sec <= '0';
+      if clk_4hz = '1' then
+        if counter5 = 19 then
+          clk_5sec <= '1';
+          counter5 := "00000";
+        else
+          counter5 := counter5 + 1;
+        end if;
+      end if;
+    end if;
+  end process;
+  
+  process (clk)
+    variable count : unsigned (1 downto 0);
+    variable pat_count : unsigned (0 downto 0);
+  begin
+    if rising_edge(clk) then
+      if clk_4hz = '1' then
+         case pat_count is
+           when "0" =>
+              case count is
+                when "00" =>
+                  leds <= "10001";
+                when "01" =>
+                  leds <= "01000";
+                when "10" =>
+                  leds <= "00101";
+                when "11" =>
+                  leds <= "00010";
+                when others =>
+                  null;
+              end case;
+           when "1" =>
+              case count is
+                when "00" =>
+                  leds <= "10000";
+                when "01" =>
+                  leds <= "01011";
+                when "10" =>
+                  leds <= "00100";
+                when "11" =>
+                  leds <= "01011";
+                when others =>
+                  null;
+              end case;
+           when others =>
+             null;
+         end case;
+         count := count + 1;
+      end if;
+      if clk_5sec = '1' then
+        pat_count := pat_count + 1;
+        count := "00";
+      end if;
+    end if;
+  end process;
+end multi1;
diff --git a/icestick/multi2.vhdl b/icestick/multi2.vhdl
new file mode 100644
index 0000000..78bf298
--- /dev/null
+++ b/icestick/multi2.vhdl
@@ -0,0 +1,41 @@
+architecture multi2 of leds is
+  signal clk_4hz: std_logic;
+  signal clk_5sec : std_logic;
+begin
+  process (clk)
+    --  3_000_000 is 0x2dc6c0
+    variable counter : unsigned (23 downto 0);
+  begin
+    if rising_edge(clk) then
+      if counter = 2_999_999 then
+        counter := x"000000";
+        clk_4hz <= '1';
+      else
+        counter := counter + 1;
+        clk_4hz <= '0';
+      end if;
+    end if;
+  end process;
+
+  process (clk)
+    variable counter5 : unsigned (4 downto 0);
+  begin
+    if rising_edge (clk) then
+      clk_5sec <= '0';
+      if clk_4hz = '1' then
+        if counter5 = 19 then
+          clk_5sec <= '1';
+          counter5 := "00000";
+        else
+          counter5 := counter5 + 1;
+        end if;
+      end if;
+    end if;
+  end process;
+
+  led1 <= clk_5sec;
+  led2 <= '0';
+  led3 <= '0';
+  led4 <= '0';
+  led5 <= '0';
+end multi2;
diff --git a/icestick/rotate1.vhdl b/icestick/rotate1.vhdl
new file mode 100644
index 0000000..34c7afd
--- /dev/null
+++ b/icestick/rotate1.vhdl
@@ -0,0 +1,51 @@
+architecture rotate1 of leds is
+  signal clk_4hz: std_logic;
+begin
+  process (clk)
+    --  3_000_000 is 0x2dc6c0
+    variable counter : unsigned (23 downto 0);
+  begin
+    if rising_edge(clk) then
+      if counter = 2_999_999 then
+        counter := x"000000";
+        clk_4hz <= '1';
+      else
+        counter := counter + 1;
+        clk_4hz <= '0';
+      end if;
+    end if;
+  end process;
+
+  process (clk)
+    variable count : unsigned (1 downto 0);
+  begin
+    if rising_edge(clk) and clk_4hz = '1' then
+      count := count + 1;
+      if count = 0 then
+        led1 <= '1';
+        led2 <= '0';
+        led3 <= '0';
+        led4 <= '0';
+        led5 <= '1';
+      elsif count = 1 then
+        led1 <= '0';
+        led2 <= '1';
+        led3 <= '0';
+        led4 <= '0';
+        led5 <= '0';
+      elsif count = 2 then
+        led1 <= '0';
+        led2 <= '0';
+        led3 <= '1';
+        led4 <= '0';
+        led5 <= '1';
+      else
+        led1 <= '0';
+        led2 <= '0';
+        led3 <= '0';
+        led4 <= '1';
+        led5 <= '0';
+      end if;
+    end if;
+  end process;
+end rotate1;
diff --git a/icestick/rotate2.vhdl b/icestick/rotate2.vhdl
new file mode 100644
index 0000000..e51ec6c
--- /dev/null
+++ b/icestick/rotate2.vhdl
@@ -0,0 +1,35 @@
+architecture rotate2 of leds is
+  signal clk_4hz: std_logic;
+begin
+  process (clk)
+    --  3_000_000 is 0x2dc6c0
+    variable counter : unsigned (23 downto 0);
+  begin
+    if rising_edge(clk) then
+      if counter = 2_999_999 then
+        counter := x"000000";
+        clk_4hz <= '1';
+      else
+        counter := counter + 1;
+        clk_4hz <= '0';
+      end if;
+    end if;
+  end process;
+
+  process (clk)
+    variable count : unsigned (1 downto 0);
+  begin
+    if rising_edge(clk) and clk_4hz = '1' then
+      count := count + 1;
+      if count = 0 then
+        (led1, led2, led3, led4, led5) <= unsigned'("10001");
+      elsif count = 1 then
+        (led1, led2, led3, led4, led5) <= unsigned'("01000");
+      elsif count = 2 then
+        (led1, led2, led3, led4, led5) <= unsigned'("00101");
+      else
+        (led1, led2, led3, led4, led5) <= unsigned'("00010");
+      end if;
+    end if;
+  end process;
+end rotate2;
diff --git a/icestick/rotate3.vhdl b/icestick/rotate3.vhdl
new file mode 100644
index 0000000..213512f
--- /dev/null
+++ b/icestick/rotate3.vhdl
@@ -0,0 +1,38 @@
+architecture rotate3 of leds is
+  signal clk_4hz: std_logic;
+begin
+  process (clk)
+    --  3_000_000 is 0x2dc6c0
+    variable counter : unsigned (23 downto 0);
+  begin
+    if rising_edge(clk) then
+      if counter = 2_999_999 then
+        counter := x"000000";
+        clk_4hz <= '1';
+      else
+        counter := counter + 1;
+        clk_4hz <= '0';
+      end if;
+    end if;
+  end process;
+
+  process (clk)
+    variable count : unsigned (1 downto 0);
+  begin
+    if rising_edge(clk) and clk_4hz = '1' then
+      case count is
+        when "00" =>
+          (led1, led2, led3, led4, led5) <= unsigned'("10001");
+        when "01" =>
+          (led1, led2, led3, led4, led5) <= unsigned'("01000");
+        when "10" =>
+          (led1, led2, led3, led4, led5) <= unsigned'("00101");
+        when "11" =>
+          (led1, led2, led3, led4, led5) <= unsigned'("00010");
+        when others =>
+          null;
+      end case;
+      count := count + 1;
+    end if;
+  end process;
+end rotate3;
diff --git a/icestick/rotate4.vhdl b/icestick/rotate4.vhdl
new file mode 100644
index 0000000..e89aaa5
--- /dev/null
+++ b/icestick/rotate4.vhdl
@@ -0,0 +1,41 @@
+architecture rotate4 of leds is
+  signal clk_4hz: std_logic;
+  signal leds : std_ulogic_vector (1 to 5);
+begin
+  (led1, led2, led3, led4, led5) <= leds;
+
+  process (clk)
+    --  3_000_000 is 0x2dc6c0
+    variable counter : unsigned (23 downto 0);
+  begin
+    if rising_edge(clk) then
+      if counter = 2_999_999 then
+        counter := x"000000";
+        clk_4hz <= '1';
+      else
+        counter := counter + 1;
+        clk_4hz <= '0';
+      end if;
+    end if;
+  end process;
+
+  process (clk)
+    variable count : unsigned (1 downto 0);
+  begin
+    if rising_edge(clk) and clk_4hz = '1' then
+      case count is
+        when "00" =>
+          leds <= "10001";
+        when "01" =>
+          leds <= "01000";
+        when "10" =>
+          leds <= "00101";
+        when "11" =>
+          leds <= "00010";
+        when others =>
+          null;
+      end case;
+      count := count + 1;
+    end if;
+  end process;
+end rotate4;
diff --git a/icestick/spin1.vhdl b/icestick/spin1.vhdl
new file mode 100644
index 0000000..79e305c
--- /dev/null
+++ b/icestick/spin1.vhdl
@@ -0,0 +1,51 @@
+architecture spin1 of leds is
+  signal nrst : std_logic := '0';
+  signal clk_4hz: std_logic;
+  signal leds : std_ulogic_vector (1 to 5);
+begin
+  (led1, led2, led3, led4, led5) <= leds;
+
+  process (clk)
+    variable cnt : unsigned (1 downto 0) := "00";
+  begin
+    if rising_edge (clk) then
+      if cnt = 3 then
+        nrst <= '1';
+      else
+        cnt := cnt + 1;
+      end if;
+    end if;
+  end process;
+
+  process (clk)
+    --  3_000_000 is 0x2dc6c0
+    variable counter : unsigned (23 downto 0);
+  begin
+    if rising_edge(clk) then
+      if nrst = '0' then
+        counter := x"000000";
+      else
+        if counter = 2_999_999 then
+          counter := x"000000";
+          clk_4hz <= '1';
+        else
+          counter := counter + 1;
+          clk_4hz <= '0';
+        end if;
+      end if;
+    end if;
+  end process;
+
+  process (clk)
+  begin
+    if rising_edge(clk) then
+      if nrst = '0' then
+        -- Initialize
+        leds <= "11000";
+      elsif clk_4hz = '1' then
+        --  Rotate
+        leds <= (leds (4), leds (1), leds (2), leds (3), '0');
+      end if;
+    end if;
+  end process;
+end spin1;
diff --git a/icestick/spin2.vhdl b/icestick/spin2.vhdl
new file mode 100644
index 0000000..0f23964
--- /dev/null
+++ b/icestick/spin2.vhdl
@@ -0,0 +1,51 @@
+architecture spin1 of leds is
+  signal nrst : std_logic := '0';
+  signal clk_4hz: std_logic;
+  signal leds : std_ulogic_vector (1 to 5);
+begin
+  (led1, led2, led3, led4, led5) <= leds;
+
+  process (clk)
+    variable cnt : unsigned (1 downto 0) := "00";
+  begin
+    if rising_edge (clk) then
+      if cnt = 3 then
+        nrst <= '1';
+      else
+        cnt := cnt + 1;
+      end if;
+    end if;
+  end process;
+
+  process (clk)
+    --  3_000_000 is 0x2dc6c0
+    variable counter : unsigned (23 downto 0);
+  begin
+    if rising_edge(clk) then
+      if nrst = '0' then
+        counter := x"000000";
+      else
+        if counter = 2_999_999 then
+          counter := x"000000";
+          clk_4hz <= '1';
+        else
+          counter := counter + 1;
+          clk_4hz <= '0';
+        end if;
+      end if;
+    end if;
+  end process;
+
+  process (clk)
+  begin
+    if rising_edge(clk) then
+      if nrst = '0' then
+        -- Initialize
+        leds <= "11000";
+      elsif clk_4hz = '1' then
+        --  Rotate
+        leds <= leds (4) & leds (1) & leds (2) & leds (3) & '0';
+      end if;
+    end if;
+  end process;
+end spin1;