2 use IEEE.std_logic_1164.all;
3 use IEEE.numeric_std.all;
8 architecture behaviour of alu is
16 left_operand : in gp_register_t;
17 right_operand : in gp_register_t;
18 op_detail : in op_opt_t;
19 alu_state : in alu_result_rec;
20 alu_result : out alu_result_rec
22 end component exec_op;
24 signal add_result, and_result, or_result, xor_result, shift_result : alu_result_rec;
25 signal left_o, right_o : gp_register_t;
29 add_inst : entity work.exec_op(add_op)
30 port map(clk,reset,left_o, right_o, op_detail, alu_state, add_result);
32 and_inst : entity work.exec_op(and_op)
33 port map(clk,reset,left_o, right_o, op_detail, alu_state, and_result);
35 or_inst : entity work.exec_op(or_op)
36 port map(clk,reset,left_o, right_o, op_detail, alu_state, or_result);
38 xor_inst : entity work.exec_op(xor_op)
39 port map(clk,reset,left_o, right_o, op_detail, alu_state, xor_result);
41 shift_inst : entity work.exec_op(shift_op)
42 port map(clk,reset,left_o, right_o, op_detail, alu_state, shift_result);
44 calc: process(left_operand, right_operand,displacement, cond, op_group, op_detail ,alu_state,and_result,add_result,or_result,xor_result,shift_result, prog_cnt,brpr, pval, pval_nxt)
45 variable result_v : alu_result_rec;
46 variable res_prod : std_logic;
47 variable cond_met : std_logic;
48 variable mem_en : std_logic;
49 variable mem_op, hword_op, byte_op : std_logic;
50 variable alu_jump : std_logic;
51 variable nop : std_logic;
53 variable pinc_v, pwr_en_v : std_logic;
55 variable prog_cnt_nxt : std_logic_vector(prog_cnt'range);
57 result_v := alu_state;
66 left_o <= left_operand;
67 right_o <= right_operand;
69 addr <= add_result.result;
70 data <= right_operand;
75 paddr <= (others =>'0');
77 result_v.result := add_result.result;
78 if (op_detail(DIRECT_JUMP_OPT) = '0') then
79 prog_cnt_nxt := std_logic_vector(unsigned(prog_cnt)+1);
81 prog_cnt_nxt := prog_cnt;
85 cond_met := not(alu_state.status.zero);
87 cond_met := alu_state.status.zero;
89 cond_met := not(alu_state.status.oflo);
91 cond_met := alu_state.status.oflo;
93 cond_met := not(alu_state.status.carry);
95 cond_met := alu_state.status.carry;
97 cond_met := not(alu_state.status.sign);
99 cond_met := alu_state.status.sign;
101 cond_met := not(alu_state.status.carry) and not(alu_state.status.zero);
103 cond_met := alu_state.status.carry or alu_state.status.zero;
105 cond_met := not(alu_state.status.sign xor alu_state.status.oflo);
107 cond_met := alu_state.status.sign xor alu_state.status.oflo;
109 cond_met := not(alu_state.status.zero) and not(alu_state.status.sign xor alu_state.status.oflo);
111 cond_met := alu_state.status.zero or (alu_state.status.sign xor alu_state.status.oflo);
119 nop := (alu_state.alu_jump xnor alu_state.brpr);
120 cond_met := cond_met and nop;
124 result_v := add_result;
125 addr(DATA_ADDR_WIDTH + 2) <= '0';
127 result_v := and_result;
128 addr(DATA_ADDR_WIDTH + 2) <= '0';
130 result_v := or_result;
131 addr(DATA_ADDR_WIDTH + 2) <= '0';
133 result_v := xor_result;
134 addr(DATA_ADDR_WIDTH + 2) <= '0';
136 result_v := shift_result;
137 addr(DATA_ADDR_WIDTH + 2) <= '0';
141 --right_o <= displacement;
142 addr <= std_logic_vector(unsigned(left_operand)+unsigned(displacement));
143 if op_detail(IMM_OPT) = '1' then
145 result_v.result := right_operand;
147 if (op_detail(LDI_REPLACE_OPT) = '0') then
148 result_v.result := left_operand;
149 if (op_detail(LOW_HIGH_OPT) = '1') then
150 result_v.result(31 downto 16) := right_operand(31 downto 16);
152 result_v.result(15 downto 0) := right_operand(15 downto 0);
158 addr(DATA_ADDR_WIDTH + 2) <= '0';
160 if op_detail(ST_OPT) = '1' then
164 hword_op := op_detail(HWORD_OPT);
165 byte_op := op_detail(BYTE_OPT);
168 if op_detail(JMP_REG_OPT) = '0' then
179 paddr <= (others =>'0');
182 data <= prog_cnt_nxt;
183 if op_detail(RET_OPT) = '1' then
191 pwr_en_v := op_detail(PWREN_OPT);
192 if op_detail(PUSH_OPT) = '1' then
197 data <= left_operand;
205 result_v.status.zero := '0';
206 if result_v.result = REG_ZERO then
207 result_v.status.zero := '1';
210 result_v.status.sign := result_v.result(gp_register_t'high);
212 if (op_detail(NO_PSW_OPT) = '1') or (cond_met = '0') then
213 result_v.status := alu_state.status;
216 result_v.reg_op := not(op_detail(NO_DST_OPT)) and res_prod and cond_met;
217 result_v.mem_en := mem_en and cond_met;
218 result_v.mem_op := mem_op and cond_met;
219 result_v.alu_jump := alu_jump and cond_met;
220 result_v.brpr := brpr and nop;
222 result_v.hw_op := hword_op and cond_met;
223 result_v.byte_op := byte_op and cond_met;
225 pwr_en_v := pwr_en_v and cond_met;
227 if (result_v.alu_jump = '0') and (brpr = '1') then
228 result_v.result := (others => '0');
229 result_v.result(prog_cnt'range) := prog_cnt_nxt;
230 --result_v.reg_op := '1';
233 -- if result_v.mem_op = '0' then --- do this if selecting enable for extension modules is too slow.
234 -- addr <= (others => '0');
236 alu_result <= result_v;
242 end architecture behaviour;