CPLD 12进制计数器

包含分频部分和12进制部分(自己做实验验证过的)

subdesign fp

(inclk:input;

outputf:output;)

variable

fp[24..0]:dff;

f :dff;

begin

fp[].clk=inclk;f.clk=inclk;

if fp[]==19999999 then

fp[]=0;

f=!f;

else

fp[]=fp[]+1;

f=f;

end if;

outputf=f;

end;

Include”fp.inc”;

subdesign twelvet1

(inclk:input;

Outa[6..0]:output;

outb[6..0]:output;

)

variable

f1:fp;

va[3..0]:dff;

vb[3..0]:dff;

begin

f1.inclk=inclk;

va[3..0].clk=f1.outputf;vb[3..0].clk=f1.ou tputf;

if(va[]==2and vb[]==1) then

va[]=1;

vb[]=0;

elsif va[]==9 then

va[]=0;

vb[]=vb[]+1;

else

va[]=va[]+1;

vb[]=vb[];

end if；

TABLE

va[3..0]=>outa0, outa1, outa2 outa3 outa4, outa5, outa6;

H”0”=>1,1,1,1,1,1,0;

H”1”=>0,1,1,0,0,0,0;

H”2”=>1,1,0,1,1,0,1;

H”3”=>1,1,1,1,0,0,1;

H”4”=>0,1,1,0,0,1,1;

H”5”=>1,0,1,1,0,1,1;

H”6”=>1,0,1,1,1,1,1;

H”7”=>1,1,1,0,0,0,0;

H”8”=>1,1,1,1,1,1,1;

H”9”=>1,1,1,1,0,1,1;

H”A”=>1,1,1,0,1,1,1;

H”B”=>0,0,1,1,1,1,1;

H”C”=>1,0,0,1,1,1,0;

H”D”=>0,1,1,1,1,0,1;

H”E”=>1,0,0,1,1,1,1;

H”F”=>1,0,0,0,1,1,1;

END TABLE;

TABLE

vb[3..0]=>outb0, outb1, outb2 outb3 outb4, outb5, outb6;

H”0”=>1,1,1,1,1,1,0;

H”1”=>0,1,1,0,0,0,0;

H”2”=>1,1,0,1,1,0,1;

H”3”=>1,1,1,1,0,0,1;

H”4”=>0,1,1,0,0,1,1;

H”5”=>1,0,1,1,0,1,1;

H”6”=>1,0,1,1,1,1,1;

H”7”=>1,1,1,0,0,0,0;

H”8”=>1,1,1,1,1,1,1;

H”9”=>1,1,1,1,0,1,1;

H”A”=>1,1,1,0,1,1,1;

H”B”=>0,0,1,1,1,1,1;

H”C”=>1,0,0,1,1,1,0;

H”D”=>0,1,1,1,1,0,1;

H”E”=>1,0,0,1,1,1,1;

H”F”=>1,0,0,0,1,1,1;

END TABLE;

end;