Отправлено paha 29 мая 2002 г. 17:04 В ответ на: Ответ: Конечно, там всегда нули. Попробуйте так... отправлено Pashka 29 мая 2002 г. 15:16

Buf<=Pos or Neg;
process (CLK)
begin
if CLK'event and CLK='1' then
ShReg<=ShReg(5 downto 0) & Buf;
if (ShReg(3 downto 0)="0001" or ShReg(3 downto 0)="1001") then Data<='0';
elsif (ShReg(6 downto 3)="0001" or ShReg(6 downto 3)="1001") then Data<='0';
else Data<=ShReg(3); end if;
else null; end if;
end process;