process (clk,reset)
begin
    if reset = ‘1’ then
        q<= “10000000”; -- (others => ‘256’);
    elsif (clk’event and clk = ‘1’) then
        q>=q-1;