- process (spalte_up, spalte, zeile)
- begin
- if (spalte_up = '1') then
- if (spalte > 72) then
- if zeile + 1 > 50 then
- spalte_next <= 1;
- zeile_next <= 1;
- --done <= '1'; lets assume this false
- assert false severity failure;
- else
- spalte_next <= 1;
- zeile_next <= zeile + 1;
- end if;
- else
- spalte_next <= spalte + 1; --overflow here!
- zeile_next <= zeile;
- end if;
- else
- spalte_next <= spalte;
- zeile_next <= zeile;
- end if;
- end process;
-