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 <= "0000001Z"; iDipLed(1) <= not pDip(1);
when "0100" => pLed <= "000001Z0"; iDipLed(0) <= not pDip(0);
when "0101" => pLed <= "00001Z00"; iDipLed(1) <= not pDip(1);
when "0110" => pLed <= "0001Z000"; iDipLed(2) <= not pDip(2);
when "0111" => pLed <= "001Z0001"; iDipLed(3) <= not pDip(3);
when "1000" => pLed <= "01Z0001Z"; iDipLed(4) <= not pDip(4);
when "1001" => pLed <= "Z00001Z0"; iDipLed(5) <= not pDip(5);
when "1010" => pLed <= "00001Z00"; iDipLed(6) <= not pDip(6);
when "1011" => pLed <= "0001Z000"; iDipLed(7) <= not pDip(7);
when "1100" => pLed <= "001Z0000"; iDipLed(6) <= not pDip(6);
when "1101" => pLed <= "01Z00000"; iDipLed(5) <= not pDip(5);
when "1110" => pLed <= "1Z000000"; iDipLed(4) <= not pDip(4);
when "1111" => pLed <= "Z0000000"; iDipLed(3) <= not pDip(3);
when others => pLed <= "ZZZZZZZZ"; iDipLed <= not pDip ;
end case;
end if;
| 
やっぱり分かりにくいが、書き込み中は1チップMSXのLEDが薄く点灯している
書き換えた1チップMSXの様子（GIFアニメ）