begin
if(clkl’event and clkl＝‘1’)then
k<＝mo；
k2<＝mo+1；
if(ell＝‘0’)then
cq<＝“00000000000000000”；
cql<＝mo2；
elSe
if(j＝‘0’)then
if(cq＝k)then
cao1<＝‘1’；
cao2<＝‘0’；
cq<＝(others=>‘0’)；
elSe
cao1<＝‘0’；
cao2<＝‘0’；
cq<＝cq+‘1’；
cql<＝cql+‘1’；
end if；
elsif(j＝‘1’)then
if(cql＝k2)theH
cao1<＝‘0’；
cao2<＝‘1’；
cql<＝mo2；
elSe
cao1<＝‘O’；
cao2<＝‘O’；
cq<＝cq-‘1’；
cql<＝cql-‘1’；
end if；
end if；
end if；
end if；
end process；
process(clkl，cao1)
begin
cao111<=cao11 or cao1
if(clkl’event and clkl＝‘1’)then
if(cao111＝‘1’)then
ca011<＝‘1’；
if(q1＝“1111”)then
cao11<＝‘O’；
q1<＝“0000”；
elSe
q1<＝q1＋‘1’；
end if；
end if；
end if；
end process；
process(clkl，cao2)
beSin
cao222<=cao22 or cao2；
if(clkl’event and clkl＝‘1’)then
if(ca0222＝‘1’)then
cao22<＝‘1’；
if(q2＝“1111”)then
cao22<＝‘0’；
q2<＝“0000”；
e1Se
q2<＝q2+‘1’；
end if；
eHd if；
end if；
end process；
INC<＝gao11；
DEC<=cao222；
end behave；