1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
|
module yy;
parameter
in_width = 10,
patterns = 8,
out_width = 20,
step = 20,
mon_flag = 1;
med1 intop(to1, to2, to3, to4, to5, to6, to7, to8, to9, to10,
to11, to12, to13, to14, to15, to16, to17, to18, to19, to20,
ti1, ti2, ti3, ti4, ti5, ti6, ti7, ti8, ti9, ti10);
reg [1:in_width] in, in_mem[1:patterns];
integer index;
assign { ti1, ti2, ti3, ti4, ti5, ti6, ti7, ti8, ti9, ti10 }
= $getpattern(in_mem[index]);
initial
begin
$readmemb("mem.dat", in_mem, 1, patterns);
$monitor($stime,, "input %b output %b and %b", in_mem[index],
{ to1, to2, to3, to4, to5, to6, to7, to8, to9, to10 },
{ to11, to12, to13, to14, to15, to16, to17, to18, to19, to20 });
// $showvars;
// $setevtrace;
// $monitoroff;
// $list(yy);
for (index = 1; index <= patterns; index = index + 1)
fork
// #(step/2) if (mon_flag) $monitor;
#(step/2)
if (mon_flag)
$strobe($stime,, "-->read: %h same: %h invert: %h",
in_mem[index],
{ to1, to2, to3, to4, to5, to6, to7, to8, to9, to10 },
{ to11, to12, to13, to14, to15, to16, to17, to18, to19, to20});
#step;
join
end
endmodule
module med1(mo1, mo2, mo3, mo4, mo5, mo6, mo7, mo8, mo9, mo10,
mo11, mo12, mo13, mo14, mo15, mo16, mo17, mo18, mo19, mo20,
mi1, mi2, mi3, mi4, mi5, mi6, mi7, mi8, mi9, mi10);
output mo1, mo2, mo3, mo4, mo5, mo6, mo7, mo8, mo9, mo10,
mo11, mo12, mo13, mo14, mo15, mo16, mo17, mo18, mo19, mo20;
input mi1, mi2, mi3, mi4, mi5, mi6, mi7, mi8, mi9, mi10;
bot
inmedi1(mo1, mi1), inmedi2(mo2, mi2), inmedi3(mo3, mi3), inmedi4(mo4, mi4),
inmedi5(mo5, mi5), inmedi6(mo6, mi6), inmedi7(mo7, mi7), inmedi8(mo8, mi8),
inmedi9(mo9, mi9), inmedi10(mo10, mi10);
bot2
inmed11(mo11, mi1), inmed12(mo12, mi2),
inmed13(mo13, mi3), inmed14(mo14, mi4), inmed15(mo15, mi5),
inmed16(mo16, mi6), inmed17(mo17, mi7), inmed18(mo18, mi8),
inmed19(mo19, mi9), inmed20(mo20, mi10);
endmodule
// identity through some nots
module bot(o, i);
output o;
input i;
pth_not g0(o, w1), g1(w1, i), g2(w2, w3), g3(w3, i);
endmodule
module pth_not(o, i);
output o;
input i;
not g1(o, i);
specify
specparam rise = 5, fall = 3;
(i *> o) = (rise,fall);
endspecify
endmodule
// inverter through some nots
module bot2(o, i);
output o;
input i;
pth_not g0(o, w1), g1(w1, w2), g2(w2, i);
endmodule
|
