X-Git-Url: http://cvs.zerfleddert.de/cgi-bin/gitweb.cgi/raggedstone/blobdiff_plain/b983c58b8128671dc7e2c8252af87fbb3aea4134..ebba63a9f3199fec28ffd25951257b6619feb8bf:/dhwk_old/source/pfs.vhd?ds=inline

diff --git a/dhwk_old/source/pfs.vhd b/dhwk_old/source/pfs.vhd
new file mode 100644
index 0000000..b2fbc5d
--- /dev/null
+++ b/dhwk_old/source/pfs.vhd
@@ -0,0 +1,35 @@
+--+-----------------------------------------+
+--|  pfs                                    |
+--+-----------------------------------------+
+
+library ieee;
+use ieee.std_logic_1164.all;
+
+entity pfs is
+port (
+   clk       	: in std_logic;
+   a       	: in std_logic;
+   y       	: out std_logic
+
+);   
+end pfs;
+
+architecture rtl of pfs is
+
+	signal a_s	: std_logic;
+	
+begin
+
+	SYNCP: process( clk, a )
+	begin
+	
+        if ( rising_edge(clk) ) then
+			a_s <= a;
+		end if;
+        
+	end process SYNCP;
+
+	y <= a and (not a_s);
+	
+end rtl;
+