architecture beh of history is
type HISTORY_STATE is (SIDLE, S_S_INIT, S_S_WRITE, S_S_BS, S_S_DONE, S_S_FIN,
- S_D_INIT, S_D_WAIT, S_D_WRITE);
+ S_D_INIT, S_D_WRITE);
signal state_int, state_next : HISTORY_STATE;
signal s_done_int, s_done_next : std_logic;
signal s_cnt_int, s_cnt_next : hspalte;
case state_int is
when SIDLE =>
-- S_S_FIN: tmp..
- if d_get = '1' then
- state_next <= S_D_INIT;
+ if s_take = '1' then
+ state_next <= S_S_INIT;
elsif do_it = '1' then
state_next <= S_S_FIN;
- elsif s_take = '1' then
- state_next <= S_S_INIT;
+ elsif d_get = '1' then
+ state_next <= S_D_INIT;
end if;
when S_S_INIT =>
if s_backspace = '1' then
end if;
when S_D_INIT =>
- state_next <= S_D_WAIT;
- when S_D_WAIT =>
state_next <= S_D_WRITE;
when S_D_WRITE =>
if d_get = '0' then
-- out
process(state_int, s_cnt_int, d_spalte, data_out, s_char, address_int,
- data_in_int)
+ data_in_int, d_new_result_int, d_new_eingabe_int)
begin
s_done_next <= '0';
s_cnt_next <= s_cnt_int;
- d_new_result_next <= '0';
- d_new_eingabe_next <= '0';
+ d_new_result_next <= d_new_result_int;
+ d_new_eingabe_next <= d_new_eingabe_int;
d_done_next <= '0';
d_char_next <= (others => '0');
finished_next <= '0';
data_in_next <= data_in_int;
case state_int is
- when SIDLE =>
- null;
when S_S_INIT =>
null;
+ when SIDLE =>
+ -- TODO: tmp fix
+ d_new_result_next <= '0';
when S_S_WRITE =>
wr_next <= '1';
- address_next <= '0' & s_cnt_int;
+ address_next <= s_cnt_int;
data_in_next <= s_char;
s_cnt_next <= std_logic_vector(unsigned(s_cnt_int) + 1);
when S_S_BS =>
wr_next <= '1';
- address_next <= '0' & std_logic_vector(unsigned(s_cnt_int) - 1);
+ address_next <= std_logic_vector(unsigned(s_cnt_int) - 1);
data_in_next <= (others => '0');
- s_cnt_next <= std_logic_vector(unsigned(s_cnt_int) - 1);
+ if unsigned(s_cnt_int) /= 0 then
+ s_cnt_next <= std_logic_vector(unsigned(s_cnt_int) - 1);
+ end if;
when S_S_FIN =>
finished_next <= '1';
s_cnt_next <= (0 => '1', others => '0');
d_new_eingabe_next <= '1';
when S_D_INIT =>
- address_next <= '0' & d_spalte;
- when S_D_WAIT =>
- null;
+ address_next <= d_spalte;
+ d_new_eingabe_next <= '0';
+ d_new_result_next <= '0';
when S_D_WRITE =>
d_char_next <= data_out;
d_done_next <= '1';