LISP processor works now

[yule.git] / gcram.v

diff --git a/gcram.v b/gcram.v
new file mode 100644 (file)
index 0000000..bb03b36
--- /dev/null
+++ b/gcram.v
@@ -0,0 +1,27 @@
+module GCRAM
+(input clk, input we, input[5:0] addr, input[7:0] di, output reg [7:0] do, output reg [7:0] result);
+   reg [7:0] mem [(1<<5)-1:0];
+
+   always @ (posedge clk)
+        do <= #1 mem[addr];
+
+   always @ (posedge clk)
+        if (we)
+          mem[addr] <= #1 di;
+
+   always @ (posedge clk)
+        result <= mem[6];
+
+   initial begin
+         mem[0] <= 0;
+         mem[1] <= 0;
+         mem[2] <= 8'b00100000;
+         mem[3] <= 8'b00100000;
+         mem[4] <= 8'd8;
+         mem[5] <= 8'b11101000; /* QUOTE 8 */
+         mem[6] <= 0;
+         mem[7] <= 8'd49;
+         mem[8] <= 8'd49;
+         mem[9] <= 8'd49;
+   end
+endmodule