(有代码)基于某libero的数字逻辑设计仿真及验证实验(4-8)

标准

B=0;

repeat(20)

#20 B=$random; end initial begin C0=0; repeat(20)

#20 C0=$random; end initial begin C1=0; repeat(20)

#20 C1=$random; end initial begin C2=0; repeat(20)

#20 C2=$random; end initial begin C3=0; repeat(20)

#20 C3=$random; end

HC153 u153 (

.C0 (C0), .C1 (C1), .C2 (C2), .C3 (C3), .G (G), .A (A), .B (B), .Y (Y) );

endmodule

//74HC85代码 //HC85.v

module HC85(A3,A2,A1,A0,B3,B2,B1,B0,QAGB,QASB,QAEB,IAGB,IASB,IAEB);

文案

标准

input A3,A2,A1,A0,B3,B2,B1,B0,IAGB,IASB,IAEB; output QAGB,QASB,QAEB; reg QAGB,QASB,QAEB; wire [3:0]DataA,DataB; assign DataA[0]=A0; assign DataA[1]=A1; assign DataA[2]=A2; assign DataA[3]=A3; assign DataB[0]=B0; assign DataB[1]=B1; assign DataB[2]=B2; assign DataB[3]=B3;

always @(DataA or DataB) begin

if(DataA>DataB) begin

QAGB=1;QASB=0;QAEB=0; end

else if(DataA

QASB=1;QAGB=0;QAEB=0; end

else if(IAGB&!IASB&!IAEB) begin

QAGB=1;QASB=0;QAEB=0; end

else if(!IAGB&IASB&!IAEB) begin

QASB=1;QAGB=0;QAEB=0; end

else if(IAEB) begin

QAEB=1;QASB=0;QAGB=0; end begin

if(DataA==DataB)

if(IAGB&IASB&!IAEB)

begin QAGB=0;QASB=0;QAEB=0;end if(!IAGB&!IASB&!IAEB)

begin QAGB=1;QASB=1;QAEB=0;end end end

endmodule

//74HC85测试平台代码

文案

标准

// test85.v

`timescale 1ns/1ns module test85;

reg A3,A2,A1,A0,B3,B2,B1,B0; reg IAGB,IASB,IAEB; wire QAGB,QASB,QAEB; initial begin A3=0; repeat(20)

#20 A3=$random; end initial begin A2=0; repeat(20)

#20 A2=$random; end initial begin A1=0; repeat(20)

#20 A1=$random; end initial begin A0=0; repeat(20)

#20 A0=$random; end initial begin B3=0; repeat(20)

#20 B3=$random; end initial begin B2=0; repeat(20)

#20 B2=$random; end initial begin

文案

标准

B1=0; repeat(20)

#20 B1=$random; end initial begin B0=0; repeat(20)

#20 B0=$random; end initial begin IAGB=0; repeat(10)

#40 IAGB=$random; end initial begin IASB=0; repeat(10)

#40 IASB=$random; end initial begin IAEB=0; repeat(10)

#40 IAEB=$random; end

HC85 u85 (

.A3 (A3), .A2 (A2), .A1 (A1), .A0 (A0), .B3 (B3), .B2 (B2), .B1 (B1), .B0 (B0),

.IAGB (IAGB), .IASB (IASB), .IAEB (IAEB), .QAGB (QAGB), .QASB (QASB), .QAEB (QAEB)

文案