+ pc_char <= (others => '0');
+ pc_done <= '0';
+ wait until sys_res_n = '1';
+
+ while not endfile (f) loop
+ readline(f, l);
+ buf := l.all;
+ i := 1;
+ while i < l'length loop
+ pc_done <= '0';
+ wait until rising_edge(pc_get);
+ wait for 150 ns;
+ pc_char <= (others => '0');
+ wait for 30 ns;
+ pc_char <= hbyte(std_logic_vector(to_unsigned(character'pos(buf(i)),8)));
+ i := i + 1;
+ pc_done <= '1';
+ wait for 30 ns;
+ end loop;
+ end loop;
+