module GCRAM
-(input clk, input we, input[12:0] addr, input[15:0] di, output reg [15:0] do, output reg [15:0] result);
+(input clk, input we, input[12:0] addr, input[15:0] di, output reg [15:0] do);
reg [15:0] mem [255:0];
always @ (posedge clk)
if (we)
mem[addr] <= #1 di;
- always @ (posedge clk)
- result <= mem[6];
-
initial begin
mem[ 0] <= 0; // (cdr part of NIL)
mem[ 1] <= 0; // (car part of NIL)