chengfa.tdf

EDA条件下乘法器的实现。AHDL语言实现输入显示乘法等功能

CONSTANT ZERO=B"0";
CONSTANT  ONE=B"1";
SUBDESIGN chengfa
(A[4..1],Z[4..1],ABLE:INPUT;
ADDOUT[8..1]:OUTPUT;)
VARIABLE
C[8..1],D[8..1],E[8..1],F[8..1]:NODE;
CA[8..1],DA[8..1],EA[8..1],FA[8..1]:NODE;
CAZ,DAZ,EAZ,FAZ:NODE;
CB[8..1],DB[8..1],EB[8..1]:NODE;
JWA[8..0],JWB[8..0],JWC[8..0]:NODE;
BEGIN
IF ABLE THEN
C[4..1]=A[4..1]&ONE;
D[5..2]=A[]&ONE;
E[6..3]=A[]&ONE;
F[7..4]=A[]&ONE;
C[8..5]=A[4..1]&ZERO;
D[8..6]=A[3..1]&ZERO;
D[1]=A[1]&ZERO;
E[8..7]=A[2..1]&ZERO;
E[2..1]=A[2..1]&ZERO;
F[8]=A[1]&ZERO;
F[3..1]=A[3..1]&ZERO;
CAZ=Z[1]&ONE;
DAZ=Z[2]&ONE;
EAZ=Z[3]&ONE;
FAZ=Z[4]&ONE;
CA[8..1]=C[8..1]&CAZ;
DA[8..1]=D[8..1]&DAZ;
EA[8..1]=E[8..1]&EAZ;
FA[8..1]=F[8..1]&FAZ;
JWA[0]=ZERO;
JWB[0]=ZERO;
JWC[0]=ZERO;
FOR i IN 1 TO 8  GENERATE
CB[i]=((!CA[i]&DA[i]#CA[i]&!DA[i])&!JWA[i-1])#!(!CA[i]&DA[i]#CA[i]&!DA[i])&JWA[i-1];
JWA[i]=CA[i]&DA[i]#JWA[i-1]&(CA[i]&!DA[i]#!CA[i]&DA[i]);
DB[i]=((!EA[i]&FA[i]#EA[i]&!FA[i])&!JWB[i-1])#!(!EA[i]&FA[i]#EA[i]&!FA[i])&JWB[i-1];
JWB[i]=EA[i]&FA[i]#JWB[i-1]&(EA[i]&!FA[i]#!EA[i]&FA[i]);
EB[i]=((!CB[i]&DB[i]#CB[i]&!DB[i])&!JWC[i-1])#!(!CB[i]&DB[i]#CB[i]&!DB[i])&JWC[i-1];
JWC[i]=CB[i]&DB[i]#JWC[i-1]&(CB[i]&!DB[i]#!CB[i]&DB[i]);
END GENERATE;
ADDOUT[]=EB[];
ELSE ADDOUT[]=B"00000000";
END IF;
END;