end if;
end process;
+ process
+ begin
+ free <= '0';
+ wait for 15 ns;
+ free <= '1';
+ wait for 30 ns;
+ if stop = true then
+ wait;
+ end if;
+ end process;
+
process
variable input : hstring := "123513 ";
variable ctmp : character;
d_new_bs <= '0';
d_done <= '0';
d_char <= x"00";
- free <= '1';
icwait(sys_clk, 5);
sys_res_n <= '1';
icwait(sys_clk, 1);
d_done <= '0';
- free <= '0';
- icwait(sys_clk, 1);
- free <= '1';
- icwait(sys_clk, 1);
-
- -- fuer NOP
- free <= '0';
- icwait(sys_clk, 1);
- free <= '1';
- icwait(sys_clk, 1);
-
i := i + 1;
end loop;
icwait(sys_clk, 2);
d_new_result <= '0';
- -- fuer NOP
- free <= '0';
- icwait(sys_clk, 1);
- free <= '1';
- icwait(sys_clk, 2);
-
- -- fuer NOP
- free <= '0';
- icwait(sys_clk, 1);
- free <= '1';
- icwait(sys_clk, 1);
- icwait(sys_clk, 1);
-
-
-
if checkall then
report "alle testfaelle des Displays waren erfolgreich!";
else