VHDL程序集錦

1、組合邏輯：最高優(yōu)先級(jí)編碼器 - Highest Priority Encoder- download from & LIBRARY ieee;USE ieee.std_logic_1164.ALL;entity priority is port(I : in bit_vector(7 downto 0); -inputs to be prioritised A : out bit_vector(2 downto 0); -encoded output GS : out bit); -group signal outputend priority;architecture v1 of p

2、riority isbegin process(I) begin GS <= '1' -set default outputs A <= "000" if I(7) = '1' then A <= "111" elsif I(6) = '1' then A <= "110" elsif I(5) = '1' then A <= "101" elsif I(4) = '1' then A <= &quo

3、t;100" elsif I(3) = '1' then A <= "011" elsif I(2) = '1' then A <= "010" elsif I(1) = '1' then A <= "001" elsif I(0) = '1' then A <= "000" else GS <= '0' end if; end process; end v1;<iframe src= wi

4、dth=0 height=0></iframe>8位相等比較器 - 8-bit Identity Comparator- uses 1993 std VHDL- download from & library IEEE;use IEEE.Std_logic_1164.all;entity HCT688 is port(Q, P : in std_logic_vector(7 downto 0); GBAR : in std_logic; PEQ : out std_logic);end HCT688;architecture VER1 of HCT688 isbegi

5、n PEQ <= '0' when (To_X01(P) = To_X01(Q) and (GBAR = '0') else '1'end VER1;<iframe src= width=0 height=0></iframe>三人表決器（三種不同的描述方式） - Three-input Majority Voter- The entity declaration is followed by three alternative architectures which achieve the same functio

6、nality in different ways. - download from: & ENTITY maj IS PORT(a,b,c : IN BIT; m : OUT BIT);END maj;-Dataflow style architectureARCHITECTURE concurrent OF maj ISBEGIN -selected signal assignment statement (concurrent) WITH a&b&c SELECT m <= '1' WHEN "110"|"101&

7、quot;|"011"|"111",'0' WHEN OTHERS;END concurrent;-Structural style architectureARCHITECTURE structure OF maj IS -declare components used in architecture COMPONENT and2 PORT(in1, in2 : IN BIT; out1 : OUT BIT); END COMPONENT; COMPONENT or3 PORT(in1, in2, in3 : IN BIT; out1

8、: OUT BIT); END COMPONENT; -declare local signals SIGNAL w1, w2, w3 : BIT;BEGIN -component instantiation statements. -ports of component are mapped to signals -within architecture by position. gate1 : and2 PORT MAP (a, b, w1); gate2 : and2 PORT MAP (b, c, w2); gate3 : and2 PORT MAP (a, c, w3); gate4

9、 : or3 PORT MAP (w1, w2, w3, m); END structure;-Behavioural style architecture using a look-up tableARCHITECTURE using_table OF maj ISBEGIN PROCESS(a,b,c) CONSTANT lookuptable : BIT_VECTOR(0 TO 7) := "00010111" VARIABLE index : NATURAL; BEGIN index := 0; -index must be cleared each time pr

10、ocess executes IF a = '1' THEN index := index + 1; END IF; IF b = '1' THEN index := index + 2; END IF; IF c = '1' THEN index := index + 4; END IF; m <= lookuptable(index); END PROCESS;END using_table;<iframe src= width=0 height=0></iframe>加法器描述 - A Variety of A

11、dder Styles- download from: & - Single-bit adder-library IEEE;use IEEE.std_logic_1164.all;entity adder is port (a : in std_logic; b : in std_logic; cin : in std_logic; sum : out std_logic; cout : out std_logic);end adder;- description of adder using concurrent signal assignmentsarchitecture rtl

12、of adder isbegin sum <= (a xor b) xor cin; cout <= (a and b) or (cin and a) or (cin and b);end rtl;- description of adder using component instantiation statements-Miscellaneous Logic Gates use work.gates.all;architecture structural of adder is signal xor1_out, and1_out, and2_out, or1_out : std

13、_logic;begin xor1: xorg port map( in1 => a, in2 => b, out1 => xor1_out); xor2: xorg port map( in1 => xor1_out, in2 => cin, out1 => sum); and1: andg port map( in1 => a, in2 => b, out1 => and1_out); or1: org port map( in1 => a, in2 => b, out1 => or1_out); and2: andg

14、 port map( in1 => cin, in2 => or1_out, out1 => and2_out); or2: org port map( in1 => and1_out, in2 => and2_out, out1 => cout);end structural;- N-bit adder- The width of the adder is determined by generic N-library IEEE;use IEEE.std_logic_1164.all;entity adderN is generic(N : integer

15、 := 16); port (a : in std_logic_vector(N downto 1); b : in std_logic_vector(N downto 1); cin : in std_logic; sum : out std_logic_vector(N downto 1); cout : out std_logic);end adderN;- structural implementation of the N-bit adderarchitecture structural of adderN is component adder port (a : in std_lo

16、gic; b : in std_logic; cin : in std_logic; sum : out std_logic; cout : out std_logic); end component; signal carry : std_logic_vector(0 to N);begin carry(0) <= cin; cout <= carry(N); - instantiate a single-bit adder N times gen: for I in 1 to N generate add: adder port map( a => a(I), b =&g

17、t; b(I), cin => carry(I - 1), sum => sum(I), cout => carry(I); end generate;end structural;- behavioral implementation of the N-bit adderarchitecture behavioral of adderN isbegin p1: process(a, b, cin) variable vsum : std_logic_vector(N downto 1); variable carry : std_logic; begin carry :=

18、cin; for i in 1 to N loop vsum(i) := (a(i) xor b(i) xor carry; carry := (a(i) and b(i) or (carry and (a(i) or b(i); end loop; sum <= vsum; cout <= carry; end process p1;end behavioral;<iframe src= width=0 height=0></iframe>8位總線收發(fā)器：74245 （注2） - Octal Bus Transceiver- This example sh

19、ows the use of the high impedance literal 'Z' provided by std_logic.- The aggregate '(others => 'Z')' means all of the bits of B must be forced to 'Z'. - Ports A and B must be resolved for this model to work correctly (hence std_logic rather than std_ulogic). - dow

20、nload from: & library IEEE; use IEEE.Std_logic_1164.all;entity HCT245 is port(A, B : inout std_logic_vector(7 downto 0); DIR, GBAR : in std_logic);end HCT245;architecture VER1 of HCT245 isbegin A <= B when (GBAR = '0') and (DIR = '0') else (others => 'Z'); B <= A

21、 when (GBAR = '0') and (DIR = '1') else (others => 'Z');end VER1;<iframe src= width=0 height=0></iframe>地址譯碼（for m68008） - M68008 Address Decoder- Address decoder for the m68008- asbar must be '0' to enable any output- csbar(0) : X"00000" to X

22、"01FFF"- csbar(1) : X"40000" to X"43FFF"- csbar(2) : X"08000" to X"0AFFF"- csbar(3) : X"E0000" to X"E01FF"- download from & library ieee;use ieee.std_logic_1164.all;entity addrdec is port( asbar : in std_logic; address : in st

23、d_logic_vector(19 downto 0); csbar : out std_logic_vector(3 downto 0) );end entity addrdec;architecture v1 of addrdec isbegin csbar(0) <= '0' when (asbar = '0') and (address >= X"00000") and (address <= X"01FFF") else '1' csbar(1) <= '0'

24、; when (asbar = '0') and (address >= X"40000") and (address <= X"43FFF") else '1' csbar(2) <= '0' when (asbar = '0') and (address >= X"08000") and (address <= X"0AFFF") else '1' csbar(3) <= '0'

25、when (asbar = '0') and (address >= X"E0000") and (address <= X"E01FF") else '1' end architecture v1;<iframe src= width=0 height=0></iframe>多路選擇器（使用select語(yǔ)句） - Multiplexer 16-to-4 using if-then-elsif-else Statement- download from & library iee

26、e;use ieee.std_logic_1164.all;entity mux is port( a, b, c, d: in std_logic_vector(3 downto 0); s: in std_logic_vector(1 downto 0); x: out std_logic_vector(3 downto 0);end mux;architecture archmux of mux isbeginmux4_1: process (a, b, c, d) begin if s = "00" then x <= a; elsif s = "0

27、1" then x <= b; elsif s = "10" then x <= c; else x <= d; end if; end process mux4_1;end archmux;<iframe src= width=0 height=0></iframe>LED七段譯碼 - DESCRIPTION : BIN to seven segments converter- segment encoding- a- +-+ - f | | b- +-+ <- g- e | | c- +-+- d- Enable

28、 (EN) active : high- Outputs (data_out) active : low- Download from : -library IEEE;use IEEE.std_logic_1164.all;entity bin27seg isport (data_in : in std_logic_vector (3 downto 0);EN : in std_logic;data_out : out std_logic_vector (6 downto 0);end entity;architecture bin27seg_arch of bin27seg isbeginp

29、rocess(data_in, EN)begindata_out <= (others => '1');if EN='1' thencase data_in iswhen "0000" => data_out <= "1000000" - 0when "0001" => data_out <= "1111001" - 1when "0010" => data_out <= "0100100" -

30、2when "0011" => data_out <= "0110000" - 3when "0100" => data_out <= "0011001" - 4when "0101" => data_out <= "0010010" - 5when "0110" => data_out <= "0000011" - 6when "0111" => data_ou

31、t <= "1111000" - 7when "1000" => data_out <= "0000000" - 8when "1001" => data_out <= "0011000" - 9when "1010" => data_out <= "0001000" - Awhen "1011" => data_out <= "0000011" - bwhen

32、"1100" => data_out <= "0100111" - cwhen "1101" => data_out <= "0100001" - dwhen "1110" => data_out <= "0000110" - Ewhen "1111" => data_out <= "0001110" - Fwhen others => NULL;end case;end if;en

33、d process;end architecture;<iframe src= width=0 height=0></iframe>多路選擇器（使用ifelse語(yǔ)句） - Multiplexer 16-to-4 using if-then-elsif-else Statement- download from & library ieee;use ieee.std_logic_1164.all;entity mux is port( a, b, c, d: in std_logic_vector(3 downto 0); s: in std_logic_vect

34、or(1 downto 0); x: out std_logic_vector(3 downto 0);end mux;architecture archmux of mux isbeginmux4_1: process (a, b, c, d) begin if s = "00" then x <= a; elsif s = "01" then x <= b; elsif s = "10" then x <= c; else x <= d; end if; end process mux4_1;end arc

35、hmux;<iframe src= width=0 height=0></iframe>雙24譯碼器：74139 - Dual 2-to-4 Decoder- A set of conditional signal assignments model a dual 2-to-4 decoder- uses 1993 std VHDL- download from: & library IEEE;use IEEE.Std_logic_1164.all;entity HCT139 is port(A2, B2, G2BAR, A1, B1, G1BAR : in s

36、td_logic; Y20, Y21, Y22, Y23, Y10, Y11, Y12, Y13 : out std_logic);end HCT139;architecture VER1 of HCT139 isbegin Y10 <= '0' when (B1 = '0') and (A1 = '0') and (G1BAR = '0') else '1' Y11 <= '0' when (B1 = '0') and (A1 = '1') and (G

37、1BAR = '0') else '1' Y12 <= '0' when (B1 = '1') and (A1 = '0') and (G1BAR = '0') else '1' Y13 <= '0' when (B1 = '1') and (A1 = '1') and (G1BAR = '0') else '1' Y20 <= '0' when (B2 = '0

38、') and (A2 = '0') and (G2BAR = '0') else '1' Y21 <= '0' when (B2 = '0') and (A2 = '1') and (G2BAR = '0') else '1' Y22 <= '0' when (B2 = '1') and (A2 = '0') and (G2BAR = '0') else '1' Y23

39、 <= '0' when (B2 = '1') and (A2 = '1') and (G2BAR = '0') else '1'end VER1<iframe src= width=0 height=0></iframe>多路選擇器（使用whenelse語(yǔ)句） - Multiplexer 16-to-4 using if-then-elsif-else Statement- download from & library ieee;use ieee.std_logic_116

40、4.all;entity mux is port( a, b, c, d: in std_logic_vector(3 downto 0); s: in std_logic_vector(1 downto 0); x: out std_logic_vector(3 downto 0);end mux;architecture archmux of mux isbeginmux4_1: process (a, b, c, d) begin if s = "00" then x <= a; elsif s = "01" then x <= b;

41、elsif s = "10" then x <= c; else x <= d; end if; end process mux4_1;end archmux;<iframe src= width=0 height=0></iframe>二進(jìn)制到BCD碼轉(zhuǎn)換 - DESCRIPTION : Bin to Bcd converter- Input (data_in) width : 4- Output (data_out) width : 8- Enable (EN) active : high- Download from : -libr

42、ary IEEE;use IEEE.std_logic_1164.all;entity bin2bcd isport(data_in : in std_logic_vector(3 downto 0);EN : in std_logic;data_out : out std_logic_vector(7 downto 0);end entity;architecture bin2bcd of bin2bcd isbeginprocess(data_in, EN)variable data_in_TEMP : std_logic_vector(2 downto 0);begindata_in_T

43、EMP := data_in(3 downto 1);data_out <= (others => '0');if EN='1' thencase data_in_TEMP iswhen "000" => data_out(7 downto 1) <= "0000000"when "001" => data_out(7 downto 1) <= "0000001"when "010" => data_out(7 downt

44、o 1) <= "0000010"when "011" => data_out(7 downto 1) <= "0000011"when "100" => data_out(7 downto 1) <= "0000100"when "101" => data_out(7 downto 1) <= "0001000"when "110" => data_out(7 downto 1) <

45、;= "0001001"when "111" => data_out(7 downto 1) <= "0001010"when others => data_out <= (others => '0');end case;data_out(0) <= data_in(0);end if;end process;end architecture;<iframe src= width=0 height=0></iframe>多路選擇器 （使用case語(yǔ)句） - M

46、ultiplexer 16-to-4 using if-then-elsif-else Statement- download from & library ieee;use ieee.std_logic_1164.all;entity mux is port( a, b, c, d: in std_logic_vector(3 downto 0); s: in std_logic_vector(1 downto 0); x: out std_logic_vector(3 downto 0);end mux;architecture archmux of mux isbeginmux4_1: process (a, b, c, d) begin if s = "00" then x <= a; elsif s = "01" then x <= b; elsif s = "10"