+ --take control of the situation.
+ d_char <= (others => '0');
+ wait until sys_res_n = '1';
+
+ while not endfile (f) loop
+ readline(f, l);
+ i := 1;
+ while i < l'length loop
+ wait until rising_edge(d_get);
+ d_done <= '0';
+ d_char <= (others => '0');
+ wait for 90 ns;
+
+ d_char <= hbyte(std_logic_vector(to_unsigned(character'pos(buf(i)),8)));
+ d_done <= '1';
+ wait for 30 ns;
+
+ end loop;
+ end loop;
+