| 
                                                                                                 
      if (cnt = "000000000000000000000") then	-- 21.48MHz / 2^21(approx:2M) => 10Hz
        case seq is
          when "0010"  => pLed <= "00000001";  iDipLed(2) <= not pDip(2);
          when "0011"  => pLed <= "00000011";  iDipLed(1) <= not pDip(1);
          when "0100"  => pLed <= "00000111";  iDipLed(0) <= not pDip(0);
          when "0101"  => pLed <= "00001111";  iDipLed(1) <= not pDip(1);
          when "0110"  => pLed <= "00011111";  iDipLed(2) <= not pDip(2);
          when "0111"  => pLed <= "00111111";  iDipLed(3) <= not pDip(3);
          when "1000"  => pLed <= "01111111";  iDipLed(4) <= not pDip(4);
          when "1001"  => pLed <= "1111111Z";  iDipLed(5) <= not pDip(5);
          when "1010"  => pLed <= "111111Z0";  iDipLed(6) <= not pDip(6);
          when "1011"  => pLed <= "11111Z00";  iDipLed(7) <= not pDip(7);
          when "1100"  => pLed <= "1111Z000";  iDipLed(6) <= not pDip(6);
          when "1101"  => pLed <= "111Z0000";  iDipLed(5) <= not pDip(5);
          when "1110"  => pLed <= "11Z00000";  iDipLed(4) <= not pDip(4);
          when "1111"  => pLed <= "1Z000000";  iDipLed(3) <= not pDip(3);
          when others  => pLed <= "ZZZZZZZZ";  iDipLed    <= not pDip   ;
        end case;
      end if;
 |