OpenCores
URL https://opencores.org/ocsvn/idea/idea/trunk

Subversion Repositories idea

[/] [idea/] [trunk/] [fsm/] [key_regulator/] [count4x.fsm] - Blame information for rev 10

Go to most recent revision | Details | Compare with Previous | View Log

Line No. Rev Author Line
1 6 marta 
--Nama file : count4x.fsm
2 
--Deskripsi : counter 4 bit
3 
--Author    : Mas Adit
4 
--Tanggal  : 31 Agustus 2001
5 
 
6 
entity count4x is
7 
port (
8 
        clk : in bit;
9 
        rst : in bit;
10 
       q : out bit_vector(3 downto 0);
11 
       vdd : in bit;
12 
       vss : in bit
13 
      );
14 
end count4x;
15 
 
16 
architecture STATE_MACHINE of count4x is
17 
 
18 
type STATE_TYPE IS (S0, S1, S2, S3, S4, S5, S6, S7, S8, S9, S10, S11, S12, S13, S14, S15);
19 
 
20 
-- pragma CLOCK clk
21 
-- pragma CURRENT_STATE CURRENT_STATE
22 
-- pragma NEXT_STATE NEXT_STATE
23 
 
24 
signal CURRENT_STATE, NEXT_STATE: STATE_TYPE;
25 
 
26 
begin
27 
  process ( CURRENT_STATE, rst )
28 
    begin
29 
      if ( rst = '1' ) then
30 
          NEXT_STATE <= S0;
31 
          q <= "0000";
32 
      else
33 
          case CURRENT_STATE IS
34 
             when S0 =>
35 
                q <= "0000";
36 
                NEXT_STATE <= S1;
37 
         when S1 =>
38 
                q <= "0001";
39 
                NEXT_STATE <= S2;
40 
             when S2 =>
41 
                q <= "0010";
42 
                NEXT_STATE <= S3;
43 
         when S3 =>
44 
                q <= "0011";
45 
                NEXT_STATE <= S4;
46 
             when S4 =>
47 
                q <= "0100";
48 
                NEXT_STATE <= S5;
49 
             when S5 =>
50 
                q <= "0101";
51 
                NEXT_STATE <= S6;
52 
             when S6 =>
53 
                q <= "0110";
54 
                NEXT_STATE <= S7;
55 
             when S7 =>
56 
                q <= "0111";
57 
                NEXT_STATE <= S8;
58 
             when S8 =>
59 
                q <= "1000";
60 
                NEXT_STATE <= S9;
61 
             when S9 =>
62 
                q <= "1001";
63 
                NEXT_STATE <= S10;
64 
             when S10 =>
65 
                q <= "1010";
66 
                NEXT_STATE <= S11;
67 
         when S11 =>
68 
                q <= "1011";
69 
                NEXT_STATE <= S12;
70 
         when S12 =>
71 
                q <= "1100";
72 
                NEXT_STATE <= S13;
73 
         when S13 =>
74 
                q <= "1101";
75 
                NEXT_STATE <= S14;
76 
             when S14 =>
77 
                q <= "1110";
78 
                NEXT_STATE <= S15;
79 
             when S15 =>
80 
                q <= "1111";
81 
                NEXT_STATE <= S0;
82 
             when OTHERS =>
83 
                assert ( '1' )
84 
                report "Illegal State";
85 
 
86 
          end case;
87 
      end if;
88 
end process;
89 
 
90 
process (clk)
91 
  begin
92 
    if ((clk = '1') and not (clk'STABLE)) then
93 
         CURRENT_STATE <= NEXT_STATE;
94 
    end if;
95 
end process;
96 
 
97 
end STATE_MACHINE;

powered by: WebSVN 2.1.0

© copyright 1999-2024 OpenCores.org, equivalent to Oliscience, all rights reserved. OpenCores®, registered trademark.