fire_d.vhd

里面有一个很实用的源码,数字引爆密码设计

LIBRARY IEEE;
USE IEEE.std_logic_1164.ALL;
USE IEEE.std_logic_arith.ALL;
USE IEEE.std_logic_unsigned.ALL;

ENTITY fire_d IS
           PORT (A0,A1,A2,A3,A4,A5,A6,A7,A8,A9  : IN  std_logic;
                 WAIT_T : IN  std_logic;
                 READY  : IN  std_logic;
                 SETUP  : IN  std_logic;
                 FIRE   : IN  std_logic;
                 OSCC   : IN  std_logic;
                 LT,RT  : OUT std_logic;
                 LB     : OUT std_logic;
                 A,B,C,D,E,F,G  : OUT std_logic);
END fire_d;

ARCHITECTURE fire_d_arc OF fire_d IS
     COMPONENT kand2
          PORT (A,B  : IN  std_logic;
                C    : OUT std_logic);
     END COMPONENT;

     COMPONENT kinvert
          PORT (A  : IN  std_logic;
                B  : OUT std_logic);
     END COMPONENT; 

     COMPONENT direct
          PORT (A  : IN  std_logic;
                B  : OUT std_logic);
     END COMPONENT;

     COMPONENT ksy
          PORT (A,B  : IN  std_logic;
                C    : OUT std_logic);
     END COMPONENT;

     COMPONENT kbian
          PORT (A,B,C,D,E,F,G,H,I,J  : IN  std_logic;
                T,X,Y,Z,W            : OUT std_logic);
     END COMPONENT;

     COMPONENT kcom
          PORT (A,B,C,D,E,F,G,H  : IN  std_logic;
                T                : OUT std_logic);
     END COMPONENT;

     COMPONENT k4mux
          PORT (A,B      : IN  std_logic;
                C,D,E,F  : OUT std_logic);
     END COMPONENT;

     COMPONENT kcount
          PORT (A,B    : IN  std_logic;
                C,D,E  : OUT std_logic);
     END COMPONENT;

     COMPONENT kf_f
          PORT (A,B  : IN  std_logic;
                C    : OUT std_logic);
     END COMPONENT;

     COMPONENT kcoun101
          PORT (A  : IN  std_logic;
                B  : OUT std_logic);
     END COMPONENT;

     COMPONENT kcoun102
          PORT (A  : IN  std_logic;
                B  : OUT std_logic);
     END COMPONENT;

	     COMPONENT se7
          PORT (A,B,C,D        : IN  std_logic;
                E,F,G,H,I,J,K  : OUT std_logic);
     END COMPONENT;
    
     COMPONENT ken1
          PORT (A,B  : IN  std_logic;
                C    : OUT std_logic);
     END COMPONENT;

     COMPONENT control
          PORT (A,B,C,D,E,F,G,CLK  : IN  std_logic;
                H,I,J,K,L,M        : OUT std_logic);
     END COMPONENT;
         SIGNAL  E1,E2,E3,E4 : std_logic;
         SIGNAL  B1,B2,B3,B4 : std_logic;
         SIGNAL  C1,C2,C3,C4 : std_logic;
         SIGNAL  C11,C22,C33,C44 : std_logic;
         SIGNAL  A00,A10,A20,A30,A40,A50,A60,A70,A80,A90 : std_logic;
         SIGNAL  A01,A11,A21,A31,A41,A51,A61,A71,A81,A91 : std_logic;
         SIGNAL  EN,DATA_IN,WAIT_L,SLT,SLB,CNTe3,RESET_CNT,CNP,Dep : std_logic;
         SIGNAL  RRT,RT1 : std_logic;
         SIGNAL  DATA_IN1,DATA_IN2 : std_logic;
         SIGNAL  CT0,CT1 : std_logic;
         SIGNAL  OSC1,OSC2 : std_logic;
BEGIN
     U0: kinvert  PORT MAP(WAIT_T,C1);
     U1: kinvert  PORT MAP(SETUP,C2);
     U2: kinvert  PORT MAP(READY,C3);
     U3: kinvert  PORT MAP(RRT,RT1);
     U4: ken1     PORT MAP(FIRE,EN,C4);
     U5: ken1     PORT MAP(A0,EN,A00);
     U6: ken1     PORT MAP(A1,EN,A10);
     U7: ken1     PORT MAP(A2,EN,A20);
     U8: ken1     PORT MAP(A3,EN,A30);
     U9: ken1     PORT MAP(A4,EN,A40);
     U10:ken1     PORT MAP(A5,EN,A50);
     U11:ken1     PORT MAP(A6,EN,A60);
     U12:ken1     PORT MAP(A7,EN,A70);
     U13:ken1     PORT MAP(A8,EN,A80);
     U14:ken1     PORT MAP(A9,EN,A90);
     U15:ksy      PORT MAP(C1,OSC2,C11);
     U16:ksy      PORT MAP(C2,OSC2,C22);
     U17:ksy      PORT MAP(C3,OSC2,C33);
     U18:ksy      PORT MAP(C4,OSC2,C44);
     U19:ksy      PORT MAP(A00,OSC2,A01);
     U20:ksy      PORT MAP(A10,OSC2,A11);
     U21:ksy      PORT MAP(A20,OSC2,A21);
     U22:ksy      PORT MAP(A30,OSC2,A31);
     U23:ksy      PORT MAP(A40,OSC2,A41);
     U24:ksy      PORT MAP(A50,OSC2,A51);
     U25:ksy      PORT MAP(A60,OSC2,A61);
     U26:ksy      PORT MAP(A70,OSC2,A71);
     U27:ksy      PORT MAP(A80,OSC2,A81);
     U28:ksy      PORT MAP(A90,OSC2,A91);
     U29:kbian    PORT MAP(A01,A11,A21,A31,A41,A51,A61,A71,A81,A91,DATA_IN1,B1,B2,B3,B4);
     U30:kcom     PORT MAP(B1,B2,B3,B4,E1,E2,E3,E4,Dep);
     U31:control  PORT MAP(C11,C22,C33,C44,DATA_IN,Dep,CNTe3,OSC2,EN,CNP,RESET_CNT,SLB,SLT,WAIT_L);
     U32:k4mux    PORT MAP(CT0,CT1,E1,E2,E3,E4);
     U33:kcount   PORT MAP(CNP,RESET_CNT,CT0,CT1,CNTe3);
     U34:kf_f     PORT MAP(WAIT_L,SLT,LT);
     U35:kf_f     PORT MAP(WAIT_L,SLB,RRT);
     U36:kcoun102 PORT MAP(OSC1,OSC2);
     U37:kand2    PORT MAP(RT1,OSC1,LB);
     U38:direct   PORT MAP(RRT,RT);
     U39:direct   PORT MAP(DATA_IN1,DATA_IN2);
     U40:direct   PORT MAP(DATA_IN2,DATA_IN);
     U41:se7      PORT MAP(B1,B2,B3,B4,A,B,C,D,E,F,G);
     U42:kcoun101 PORT MAP(OSCC,OSC1);
END fire_d_arc;