inout.tdf

来自「简单的CPU设计数字系统实验」· TDF 代码 · 共 24 行

SUBDESIGN inout
(dr1,dr0,clk,enable:input;
 in,out :output;
 halt:output;)
VARIABLE
  ss:MACHINE WITH STATES (S0,S1);
begin

  SS.CLK =CLK;
  case ss is
     when s0 =>
       if ((enable==1)and(dr1==1) and (dr0==0)) then (in,out,halt)=(B"0",B"1",B"0");
       end if;
       if ((enable==1)and(dr1==0) and (dr0==1)) then (in,out,halt)=(B"1",B"0",B"0");
       end if;
       if ((enable==1)and(dr1==dr0)) then (in,out,halt)=(B"0",B"0",B"1");
       end if;
     when s1 =>
       ss=s1;
end case;

end;