shuru.tdf

来自「EDA条件下乘法器的实现。AHDL语言实现输入显示乘法等功能」· TDF 代码 · 共 41 行

CONSTANT ZERO=B"0";
CONSTANT ONE=B"1";
SUBDESIGN shuru
(A[4..0],LOA,LOB:INPUT;
C[9..0],ABLE:OUTPUT;)
VARIABLE
FF[14..0]:LATCH;
BEGIN 
CASE LOB IS
 WHEN ONE =>
IF LOA THEN
   FF[14..0].ENA=B"000000000000000";
ABLE=!LOB;       
   ELSE
   FF[9..0].ENA=B"1111111111";
   FF[4..0].D=A[4..0];
   FF[9..5].D=FF[4..0].Q;
   C[4..0]=FF[9..5].Q; 
  ABLE=!LOB;  
END IF;
 WHEN ZERO =>
   FF[4..0].ENA=B"00000";
     IF LOA THEN
        FF[9..5].ENA=B"11111";
        FF[14..10].ENA=B"11111";
        FF[9..5].D=FF[4..0].Q;
        FF[14..10].D=A[4..0];
        C[9..0]=FF[14..5].Q;
        ABLE=!LOB;   
     ELSE
        ABLE=LOA&ONE;  
        FF[14..10].ENA=B"11111";
        FF[14..10].D=A[4..0];
        C[9..5]=FF[14..10].Q;
     END IF;
  END CASE;


END;