RAM128X1S_1.v
1.22 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
// $Header: /root/leakn64/depot/rf/hw/debug/xilinx/RAM128X1S_1.v,v 1.1 2003/04/01 21:47:36 berndt Exp $
/*
FUNCTION : 128x1 Static RAM with synchronous write capability
*/
`timescale 100 ps / 10 ps
module RAM128X1S_1 (O, A0, A1, A2, A3, A4, A5, A6, D, WCLK, WE);
parameter INIT = 128'h00000000000000000000000000000000;
output O;
input A0, A1, A2, A3, A4, A5, A6, D, WCLK, WE;
reg mem [127:0];
wire [6:0] adr;
reg [7:0] count;
wire d_in, wclk_in, we_in;
buf b_d (d_in, D);
buf b_wclk (wclk_in, WCLK);
buf b_we (we_in, WE);
buf b_a6 (adr[6], A6);
buf b_a5 (adr[5], A5);
buf b_a4 (adr[4], A4);
buf b_a3 (adr[3], A3);
buf b_a2 (adr[2], A2);
buf b_a1 (adr[1], A1);
buf b_a0 (adr[0], A0);
buf b_o (O, o_int);
buf b_o_int (o_int, mem[adr]);
initial begin
for (count = 0; count < 128; count = count + 1)
mem[count] <= INIT[count];
end
always @(negedge wclk_in) begin
if (we_in == 1'b1)
mem[adr] <= d_in;
end
specify
if (WE)
(WCLK => O) = (1, 1);
(A6 => O) = (1, 1);
(A5 => O) = (1, 1);
(A4 => O) = (1, 1);
(A3 => O) = (1, 1);
(A2 => O) = (1, 1);
(A1 => O) = (1, 1);
(A0 => O) = (1, 1);
endspecify
endmodule