CPU设计与模型机实现

--实验12 微程序控制器实验 
LIBRARY IEEE;
USE IEEE.STD_LOGIC_1164.ALL,IEEE.NUMERIC_STD.ALL;
USE WORK.CPU_DEFS.ALL;

ENTITY CPU IS
PORT( clock      : IN   STD_LOGIC;
      reset      : IN   STD_LOGIC;
  mode       : IN   STD_LOGIC_VECTOR(2 DOWNTO 0);       
  mem_addr   : IN  UNSIGNED(word_w-op_w-1 DOWNTO 0);   
  output     : OUT  STD_LOGIC_VECTOR(word_w-1 DOWNTO 0); 
  data_r_out : OUT  STD_LOGIC_VECTOR(21 DOWNTO 0);
  op_out     : OUT  STD_LOGIC_VECTOR(op_w-1 DOWNTO 0);
  add_r_out  : OUT  UNSIGNED(4 DOWNTO 0)     
);          
END ENTITY;

ARCHITECTURE rtl OF CPU IS
TYPE mem_array IS ARRAY (0 TO 2**(word_w-op_w)-1) OF STD_LOGIC_VECTOR(word_w-1 DOWNTO 0);
SIGNAL   mem       : mem_array;
CONSTANT prog      : mem_array:=(



0=> op2slv(load)  & STD_LOGIC_VECTOR(TO_UNSIGNED(7,word_w-op_w)),
1=> op2slv(sta)   & STD_LOGIC_VECTOR(TO_UNSIGNED(8,word_w-op_w)),
2=> op2slv(add)   & STD_LOGIC_VECTOR(TO_UNSIGNED(9,word_w-op_w)),
3=> op2slv(sub)   & STD_LOGIC_VECTOR(TO_UNSIGNED(10,word_w-op_w)),
4=> op2slv(and1)   & STD_LOGIC_VECTOR(TO_UNSIGNED(11,word_w-op_w)),
                                5=> op2slv(nop)   & STD_LOGIC_VECTOR(TO_UNSIGNED(12,word_w-op_w)),

                                6=> op2slv(jmp)   & STD_LOGIC_VECTOR(TO_UNSIGNED(13,word_w-op_w)),


7=> STD_LOGIC_VECTOR(TO_UNSIGNED(8,word_w)),
8=> STD_LOGIC_VECTOR(TO_UNSIGNED(1,word_w)),
9=> STD_LOGIC_VECTOR(TO_UNSIGNED(2,word_w)),
                                10=> STD_LOGIC_VECTOR(TO_UNSIGNED(5,word_w)),
                                11=> STD_LOGIC_VECTOR(TO_UNSIGNED(6,word_w)),
                                13=> STD_LOGIC_VECTOR(TO_UNSIGNED(4,word_w)),
                                





OTHERS => (OTHERS =>'0'));
TYPE microcode_array IS ARRAY (0 TO 17) OF STD_LOGIC_VECTOR(21 DOWNTO 0);
CONSTANT code      : microcode_array:=(



0=> "0000010100010000000001",
1=> "0000000000000110000010",
2=> "0000001010000000000011",
3=> "0000000100001000001111",
4=> "0000100010000000000000",
5=> "0000000000000100000000",
6=> "0000000010100001000000",
7=> "0000000010100000100000",
                                8=> "0000000000000110000100",