数电设计数字钟

nР cs1<="0000";cp1<='1';Р elseР cs1<=cs1+1;cp1<='0';Р end if; Р end if;Рend if;Рend process;Рprocess(cp1)Р?beginР?if sta="00" thenР if cp1'event and rising_edge(cp1) thenР if cs2="0101" thenР cs2<="0000";cp2<='1';Р else Р cs2<=cs2+1;cp2<='0';Р end if;Р end if;Р end if;Рend process;Рprocess(cp2)Р?beginР if sta="01" and p="010" thenР cm1<=sm1;Р elsif cp2'event and rising_edge(cp2) thenР if cm1="1001" thenР cm1<="0000";cp3<='1';Р else Р cm1<=cm1+1;cp3<='0';Р end if;Р end if;Рend process;Рprocess(cp3)Р?beginР if sta="01" and p="011" then cm2<=sm2;Р elsif cp3'event and rising_edge(cp3) thenР if cm2="0101" thenР cm2<="0000";cp4<='1';Р else Р cm2<=cm2+1;cp4<='0';Р end if;Р end if;Р Рend process;Рprocess(cp5)Р?beginР?if sta="01" and p="101" then ch2<=sh2;Р elsif cp5'event and rising_edge(cp5) then