dpddl010h.vmd
3.17 KB
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
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
/**************************************************************/
/* Verilog module of datapath cell dpddl010h */
/* Designed by Chunling Liu Compass July 17, 92 */
/* Designed by Linda J. Xu Compass Nov. 23, 1992 */
/* Changed by Matt Rohm SGI May 27, 1994 */
/* (changed to intra-assignment delays) */
/* */
/* The following is the port description */
/* Data ports */
/* IN : the input port */
/* A : the tapoutput port */
/* OUT : the output port */
/* Control ports */
/* INST_CP : the clock signal */
/* CDN : the active-low clear signal */
/* Parameters */
/* WORDSIZE : the word size of the datapath cell */
/* Number_Of_Delays : the col size of the datapath cell */
/* Tap_Locations : the tap A position */
/* DELAY : the delay time from input to output */
/* */
/* When the clock signal changes from unknown to 1 or */
/* from 0 to unknown while the clear signal is high, */
/* the output will be unknown. */
/**************************************************************/
module dpddl010h(IN, A, OUT, INST_CP, CDN);
parameter WORDSIZE = 8, Number_of_delays = 2,
Tap_Locations = 1, DELAY = 10, BF = 1;
input [WORDSIZE-1:0] IN;
output [WORDSIZE-1:0] A;
output [WORDSIZE-1:0] OUT;
input INST_CP, CDN;
reg [WORDSIZE-1:0] A;
reg [WORDSIZE-1:0] OUT;
reg [WORDSIZE-1:0] rgf[Number_of_delays-1:0];
reg flag;
initial OUT = {WORDSIZE{1'bx}};
initial flag = 1'b0;
function [WORDSIZE-1:0] dff;
input [WORDSIZE-1:0] d;
integer i;
begin
if (!CDN)
for (i = 0; i< Number_of_delays; i=i+1)
begin
rgf[i] = {WORDSIZE{1'b0}};
end
else if (CDN)
begin
for (i = Number_of_delays-1; i>= 1; i=i-1)
begin
rgf[i] = rgf[i-1];
end
rgf[0] = d;
end
dff = rgf[Number_of_delays-1];
end
endfunction
always @CDN
if (!CDN)
begin
assign OUT = {WORDSIZE{1'b0}};
assign A = {WORDSIZE{1'b0}};
end
else if (CDN)
begin
deassign OUT;
deassign A;
end
else
begin
assign OUT = {WORDSIZE{1'b x}};
assign A = {WORDSIZE{1'b x}};
end
always @ ( posedge INST_CP )
if ((INST_CP === 1'b1) && (flag === 1'b0))
begin
OUT = #DELAY dff(IN);
A = #DELAY rgf[Tap_Locations-1];
end
else
begin
OUT = {WORDSIZE{1'b x}};
A = {WORDSIZE{1'b x}};
flag = 1'b1;
end
always @ (negedge INST_CP)
if (INST_CP === 1'b0)
flag = 1'b0;
else
flag = 1'b1;
endmodule