control3.tdf

ProtelDXp 实现计算器功能

subdesign  control3
(
   outcode[3..0]:input;
   add,sub,mul,dic:output;
)
begin
if    outcode[]==B"1010" then
      add=Vcc;
elsif outcode[]==B"1011" then
      sub=Vcc;
elsif outcode[]==B"1100" then
      mul=Vcc;
elsif outcode[]==B"1101" then
      dic=Vcc;
else 
      add=gnd;
      sub=gnd;
      mul=gnd;
      dic=gnd;
end if;
end;