mulx6.tdf

vhd语言

SUBDESIGN MULX6
( CLK,ONE[3..0],TWO[3..0],THREE[3..0],FOUR[3..0],FIVE[3..0],SIX[3..0]:INPUT;
  L[5..0],OUT[3..0]:OUTPUT;
)
VARIABLE SS:MACHINE WITH STATES(S0,S1,S2,S3,S4,S5);

BEGIN
SS.CLK=CLK;
CASE SS IS
   WHEN S0=>
     L[]=B"000001";
     OUT[]=ONE[];
     SS=S1;
   WHEN S1=>
     L[]=B"000010";
     OUT[]=TWO[];
     SS=S2;
 WHEN S2=>
     L[]=B"000100";
     OUT[]=THREE[];
     SS=S3;
 WHEN S3=>
     L[]=B"001000";
     OUT[]=FOUR[];
     SS=S4;
 WHEN S4=>
     L[]=B"010000";
     OUT[]=FIVE[];
     SS=S5;
 WHEN S5=>
     L[]=B"100000";
     OUT[]=SIX[];
     SS=S0;
 END CASE;
END;