Subversion Repositories or1k

// $Header: /home/marcus/revision_ctrl_test/oc_cvs/cvs/or1k/mp3/lib/xilinx/unisims/RAM128X1S.v,v 1.1.1.1 2001-11-04 18:59:50 lampret Exp $
 
/*
 
FUNCTION	: 128x1 Static RAM with synchronous write capability
 
*/
 
`timescale  100 ps / 10 ps
 
`celldefine
 
module RAM128X1S (O, A0, A1, A2, A3, A4, A5, A6, D, WCLK, WE);
 
    parameter cds_action = "ignore";
 
    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 @(posedge 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
 
`endcelldefine