process(clr)
begin
if (clr_in'event and clr_in='1') then
stop_internal<='1';--clr_out<='0';
end if;
end process;
process(clk,stop_internal,reset)
variable col_index_i:matrix1x7_2304;variable col_index_nonzero_i:matrix1x7;
variable i:integer range 0 to 96;
begin
if reset ='1' then
i:=0; col_index_i:=(1,1,1,1,1,1,1);
else
if (clk 'event and clk='1' )and stop_internal='1' then
col_index_i:=(1,1,1,1,1,1,1);
if i=96 then
clr_out<='1';
stop_internal<='0';
i:=1;
else
clr_out<='0';
i:=i+1;
end if;
end if;
end if;
--end if;
end process;