include "sin.inc";
subdesign wave
(inclk,mode[1..0],inb[7..0]:input;
da[7..0],cs:output;
)
variable
fp[7..0],f:dff;
st:dff;
da[7..0]:dff;
md[8..0]:dff;
msin:sin;
begin
(fp[],f).clk=inclk;        --將inclk分頻輸出f,輸入inb[]控制分頻系數(shù)
if fp[]>=inb[] then
fp[]=0;f=!f;
else
  fp=fp+1;f=f;
end if;
cs=gnd;
da[].clk=f;
md[].clk=f;
	st.clk=f;
case mode[] is             --通過輸入mode[1..0]控制輸出波形
when 0=>                   --產(chǎn)生一個(gè)鋸齒波
da[]=da[]+1;
when 1=>                   --產(chǎn)生一個(gè)三角波
    case st is
    when gnd =>
         if da[]==255 then
         da[]=da[];st=vcc;
         else
         da[]=da[]+1;st=gnd;
         end if;
    when vcc=>
         if da[]==0 then
         da[]=da[];st=gnd;
         else
         da[]=da[]-1;st=vcc;
         end if;
    end case;
when 2=>                  --產(chǎn)生一個(gè)方波
    case st is
    when gnd=>
    da[]=da[];
    if md[]>=255 then
    md[]=0;st=vcc;
    else
    md[]=md[]+1;st=gnd;
    end if;
   when vcc=>
    da[]=!da[];
    end case;
when 3=>                  --產(chǎn)生一個(gè)正弦波
  msin.inclk=f;msin.add[]=md[];da[]=msin.q[];
  if md[]==255 then
     md[]=0;
  else
    md[]=md[]+1;
  end if;
end case;
end;