BYR Achieve · 镜像论坛

偶做的ppm解码器

2007/12/25镜像同步2 回复

library ieee; use ieee.std_logic_1164.all; use ieee.std_logic_unsigned.all; use ieee.std_logic_arith.all; entity ppm is port( clk,rst,din:in std_logic; d_en,f_en:out std_logic; dout:out std_logic_vector(7 downto 0)); end ppm; architecture decoder of ppm is type state is (s0,s8,s9,s10,s11,s12,s13,s14,s15,s16,s17,s18,s19,s20,s21,s22,s23,s24,s25,s26,s27,s28); signal clk1,clk2,b,a:std_logic; signal count1:std_logic_vector(3 downto 0); signal count2:std_logic_vector(1 downto 0); signal count3:std_logic_vector(3 downto 0); signal count4:std_logic_vector(3 downto 0); signal out1:std_logic_vector(7 downto 0); --signal temp:std_logic_vector(127 downto 0); --signal temp2:std_logic_vector(7 downto 0); signal p,s:state; begin process(clk,rst) begin if clk'event and clk='1' then if rst='0' then count1<="0000"; elsif count1="1111" then count1<="0000"; else count1 <= count1+1; end if; end if; end process; process(clk,rst) begin if clk'event and clk='1' then if rst='0' then count4<="0000"; else count4<=count4+1; end if; end if; end process; process(clk) begin if clk'event and clk='1' then if count1<"0111" then clk1<='0'; elsif count1="1111" then clk1<='0'; else clk1<='1'; end if; end if; end process; process(clk) begin if clk'event and clk='1' then if count4="0111" then clk2<='1'; else clk2<='0'; end if; end if; end process; --process(clk) --begin --if clk'event and clk='1' then --clk3<=(clk1 xor clk2); --end if; --end process; process(clk1) begin if clk1'event and clk1='1' then p<=s; end if; end process; process(clk,rst) begin if rst='0' then d_en<='0'; f_en<='0'; dout<="00000000"; elsif clk'event and clk='0' then if clk2='1' and a='1' then dout<=out1; d_en<='1'; else d_en<='0'; end if; if clk2='1' and b='1' then f_en<='1'; else f_en<='0'; end if; end if; end process; process(rst,clk1) begin if rst ='0' then s<=s0; count2<="00"; count3<="0000"; out1<="00000000"; a<='0'; b<='0'; --d_en<='0'; --f_en<='0'; --dout<="00000000"; --temp<=x"00000000000000000000000000000000"; elsif clk1'event and clk1='0' then case p is when s0=>out1<=out1(6 downto 0)&din; if out1="01111011" then if din='1' then s<=s9; out1<="00000000"; end if; else s<=s0; end if; when s8=> --寮�濮嬫帴鏀舵暟鎹? b<='0'; a<='0'; if din='1' then s<=s9; else s<=s0; end if; when s9=>if din='1' then s<=s10; else s<=s11; end if; when s10=>if din='1' then s<=s12; else s<=s28; end if; when s11=> if din='1' then s<=s13; else s<=s0; end if; when s12=> if din='1' then s<=s15; else s<=s14; end if; when s13=>if din='1' then s<=s16; else s<=s0; end if; when s14=>if din='1' then s<=s17; else s<=s0; end if; when s15=>if din='1' then s<=s18; else s<=s0; end if; when s16=>if din='1' then s<=s19; else s<=s0; end if; when s17=>if din='1' then s<=s20; else s<=s0; end if; when s18=>if din='0' then s<=s21; else s<=s22; end if; when s19=>if din='1' then s<=s23; else s<=s0; end if; when s20=>if din='1' then s<=s24; else s<=s0; end if; when s21=>if din='1' then s<=s25; else s<=s0; end if; when s22=>if din='1' then s<=s26; else s<=s0; end if; when s23=>if din='1' then s<=s27; else s<=s0; end if; when s24=>if din='1' then out1<="01"&out1(7 downto 2); if count2="11" then count2<="00"; --dout<="01"&out1(7 downto 2); --d_en<='1'; a<='1'; else -- out1<="01"&out1(7 downto 2); count2<=count2+1; end if; s<=s8; else s<=s0; end if; when s25=>if din='1' then out1<="10"&out1(7 downto 2); if count2="11" then count2<="00"; -- dout<="10"&out1(7 downto 2); a<='1'; else -- out1<="10"&out1(7 downto 2); count2<=count2+1; end if; s<=s8; else s<=s0; end if; when s26=>if din='0' then out1<="11"&out1(7 downto 2); if count2="11" then count2<="00"; -- dout<="11"&out1(7 downto 2); a<='1'; else -- out1<="11"&out1(7 downto 2); count2<=count2+1; end if; s<=s8; else s<=s0; end if; when s27=>if din='1' then out1<="00"&out1(7 downto 2); if count2="11" then count2<="00"; -- dout<="00"&out1(7 downto 2); a<='1'; else count2<=count2+1; -- out1<="00"&out1(7 downto 2); end if; s<=s8; else s<=s0; end if; when s28=>s<=s0; end case; end if; end process; end ;

订阅后，新回复会通过你的通知中心匿名送达。