X-Git-Url: https://git.libre-soc.org/?a=blobdiff_plain;f=gram%2Fsimulation%2Fsimsoctb.v;h=512a87410e7c7832bb6d50d597d96ab313305cd3;hb=4c8d7b18facc16b751cd99d36edcb92648f1e36d;hp=efdf7f25974c360461694bbd25f0bf548b474a96;hpb=605c6be5472270538e2c21a1e55f10e7667dfd3a;p=gram.git

diff --git a/gram/simulation/simsoctb.v b/gram/simulation/simsoctb.v
index efdf7f2..512a874 100644
--- a/gram/simulation/simsoctb.v
+++ b/gram/simulation/simsoctb.v
@@ -1,10 +1,10 @@
 // This file is Copyright (c) 2020 LambdaConcept <contact@lambdaconcept.com>
 
-`timescale 1 ns / 100 ps
+`timescale 1 ns / 1 ns
 
 module simsoctb;
   //parameter simticks = 70000;
-  parameter simticks = 2000000;
+  parameter simticks = 4000000;
 
   // GSR & PUR init requires for Lattice models
   GSR GSR_INST (
@@ -86,67 +86,119 @@ module simsoctb;
   );
 
   initial
-  begin
-    $dumpfile("simsoc.fst");
-    $dumpvars(0, clkin);
-    $dumpvars(0, dram_dq);
-    $dumpvars(0, dram_dqs);
-    $dumpvars(0, dram_ck);
-    $dumpvars(0, dram_cke);
-    $dumpvars(0, dram_we_n);
-    $dumpvars(0, dram_ras_n);
-    $dumpvars(0, dram_cas_n);
-    $dumpvars(0, dram_a);
-    $dumpvars(0, dram_ba);
-    $dumpvars(0, dram_dm);
-    $dumpvars(0, dram_odt);
-    $dumpvars(0, uart_rx);
-    $dumpvars(0, uart_tx);
-    $dumpvars(0, simsoctop);
-
-    #simticks $finish;
-  end
+    begin
+      $dumpfile("simsoc.fst");
+      $dumpvars(0, clkin);
+      $dumpvars(0, dram_dq);
+      $dumpvars(0, dram_dqs);
+      $dumpvars(0, dram_ck);
+      $dumpvars(0, dram_cke);
+      $dumpvars(0, dram_we_n);
+      $dumpvars(0, dram_ras_n);
+      $dumpvars(0, dram_cas_n);
+      $dumpvars(0, dram_a);
+      $dumpvars(0, dram_ba);
+      $dumpvars(0, dram_dm);
+      $dumpvars(0, dram_odt);
+      $dumpvars(0, uart_rx);
+      $dumpvars(0, uart_tx);
+      $dumpvars(0, simsoctop);
+
+      #simticks $finish;
+    end
 
   // UART
+  reg [31:0] tmp;
   initial
-  begin
-    uart_rx <= 1'b1;
-    #700000; // POR is ~700us
-    wishbone_write(32'hFEEDBACC, 32'hFACE2BED);
-  end
+    begin
+      uart_rx <= 1'b1;
+      #700000; // POR is ~700us
+
+      // Software control
+      wishbone_write(32'h00009000, 8'h0E); // DFII_CONTROL_ODT|DFII_CONTROL_RESET_N|DFI_CONTROL_CKE
+
+      wishbone_write(32'h0000900c, 32'h0); // p0 address
+      wishbone_write(32'h00009010, 32'h0); // p0 baddress
+      wishbone_write(32'h00009000, 8'h0C); // DFII_CONTROL_ODT|DFII_CONTROL_RESET_N
+      #500000;
+      wishbone_write(32'h00009000, 8'h0E); // DFII_CONTROL_ODT|DFII_CONTROL_RESET_N|DFI_CONTROL_CKE
+      #500000;
+
+      // Set MR2
+      wishbone_write(32'h0000900c, 32'h200); // p0 address
+      wishbone_write(32'h00009010, 32'h2); // p0 baddress
+      wishbone_write(32'h00009004, 8'h0F); // RAS|CAS|WE|CS
+    end
 
   task wishbone_write;
-  input [31:0] address;
-  input [31:0] value;
+    input [31:0] address;
+    input [31:0] value;
 
-  begin
-    uart_send(8'h01); // Write command
-    uart_send(8'h01); // Length
-    uart_send(address[31:24]); // Address
-    uart_send(address[23:16]);
-    uart_send(address[15:8]);
-    uart_send(address[7:0]);
-    uart_send(value[31:24]);
-    uart_send(value[23:16]);
-    uart_send(value[15:8]);
-    uart_send(value[7:0]);
-  end
+    begin
+      uart_send(8'h01); // Write command
+      uart_send(8'h01); // Length
+      uart_send(address[31:24]); // Address
+      uart_send(address[23:16]);
+      uart_send(address[15:8]);
+      uart_send(address[7:0]);
+      uart_send(value[31:24]);
+      uart_send(value[23:16]);
+      uart_send(value[15:8]);
+      uart_send(value[7:0]);
+    end
+  endtask
+
+  task wishbone_read;
+    input [31:0] address;
+    output [31:0] value;
+
+    begin
+      uart_send(8'h02); // Read command
+      uart_send(8'h01); // Length
+      uart_send(address[31:24]); // Address
+      uart_send(address[23:16]);
+      uart_send(address[15:8]);
+      uart_send(address[7:0]);
+      uart_read(value[31:24]);
+      uart_read(value[23:16]);
+      uart_read(value[15:8]);
+      uart_read(value[7:0]);
+    end
   endtask
 
   task uart_send;
-  input [7:0] data;
-  integer i;
+    input [7:0] data;
+    integer i;
 
-  begin
-    uart_rx <= 1'b0;
-    #8680;
-    for (i = 0; i < 8; i = i + 1)
     begin
-      uart_rx <= data[i];
+      uart_rx <= 1'b0;
+      #8680;
+      for (i = 0; i < 8; i = i + 1)
+        begin
+          uart_rx <= data[i];
+          #8680;
+        end
+      uart_rx <= 1'b1;
+      #8680;
+    end
+  endtask
+
+  task uart_read;
+    output [7:0] data;
+    integer i;
+
+    begin
+      while (uart_tx)
+        begin
+          #1;
+        end
+
+      for (i = 0; i < 8; i = i+1)
+        begin
+          #8680 data[i] <= uart_tx;
+        end
+
       #8680;
     end
-    uart_rx <= 1'b1;
-    #8680;
-  end
   endtask
 endmodule