gram/simulation/simsoctb.v

   1 // This file is Copyright (c) 2020 LambdaConcept <contact@lambdaconcept.com>
   2
   3 `timescale 1 ns / 1 ns
   4
   5 module simsoctb;
   6   //parameter simticks = 70000;
   7   parameter simticks = 60000000;
   8
   9   // GSR & PUR init requires for Lattice models
  10   GSR GSR_INST (
  11     .GSR(1'b1)
  12   );
  13   PUR PUR_INST (
  14     .PUR (1'b1)
  15   );
  16
  17   reg clkin;
  18   wire sync;
  19   wire sync2x;
  20   wire dramsync;
  21   wire init;
  22
  23   // Generate 100 Mhz clock
  24   always
  25   begin
  26     clkin = 1'b1;
  27     #5;
  28     clkin = 1'b0;
  29     #5;
  30   end
  31
  32   // UART
  33   reg uart_rx;
  34   wire uart_tx;
  35
  36   // DDR3 init
  37   wire dram_ck;
  38   wire dram_cke;
  39   wire dram_we_n;
  40   wire dram_ras_n;
  41   wire dram_cas_n;
  42   wire [15:0] dram_dq;
  43   wire [1:0] dram_dqs;
  44   wire [1:0] dram_dqs_n;
  45   wire [13:0] dram_a;
  46   wire [2:0] dram_ba;
  47   wire [1:0] dram_dm;
  48   wire dram_odt;
  49   wire [1:0] dram_tdqs_n;
  50
  51   ddr3 ram_chip (
  52     .rst_n(1'b1),
  53     .ck(dram_ck),
  54     .ck_n(~dram_ck),
  55     .cke(dram_cke),
  56     .cs_n(1'b0),
  57     .ras_n(dram_ras_n),
  58     .cas_n(dram_cas_n),
  59     .we_n(dram_we_n),
  60     .dm_tdqs(dram_dm),
  61     .ba(dram_ba),
  62     .addr(dram_a),
  63     .dq(dram_dq),
  64     .dqs(dram_dqs),
  65     .dqs_n(dram_dqs_n),
  66     .tdqs_n(dram_tdqs_n),
  67     .odt(dram_odt)
  68   );
  69
  70   top simsoctop (
  71     .ddr3_0__dq__io(dram_dq),
  72     .ddr3_0__dqs__io(dram_dqs),
  73     .ddr3_0__clk__io(dram_ck),
  74     .ddr3_0__clk_en__io(dram_cke),
  75     .ddr3_0__we_n__io(dram_we_n),
  76     .ddr3_0__ras_n__io(dram_ras_n),
  77     .ddr3_0__cas_n__io(dram_cas_n),
  78     .ddr3_0__a__io(dram_a),
  79     .ddr3_0__ba__io(dram_ba),
  80     .ddr3_0__dm__io(dram_dm),
  81     .ddr3_0__odt__io(dram_odt),
  82     .clk100_0__io(clkin),
  83     .rst_0__io(1'b0),
  84     .uart_0__rx__io(uart_rx),
  85     .uart_0__tx__io(uart_tx)
  86   );
  87
  88   initial
  89     begin
  90       $dumpfile("simsoc.fst");
  91       $dumpvars(0, clkin);
  92       $dumpvars(0, dram_dq);
  93       $dumpvars(0, dram_dqs);
  94       $dumpvars(0, dram_ck);
  95       $dumpvars(0, dram_cke);
  96       $dumpvars(0, dram_we_n);
  97       $dumpvars(0, dram_ras_n);
  98       $dumpvars(0, dram_cas_n);
  99       $dumpvars(0, dram_a);
 100       $dumpvars(0, dram_ba);
 101       $dumpvars(0, dram_dm);
 102       $dumpvars(0, dram_odt);
 103       $dumpvars(0, uart_rx);
 104       $dumpvars(0, uart_tx);
 105       $dumpvars(0, simsoctop);
 106
 107       #simticks $finish;
 108     end
 109
 110   // UART
 111   reg [31:0] tmp;
 112   initial
 113     begin
 114       uart_rx <= 1'b1;
 115       $display("[%t] Starting POR",$time);
 116       #700000; // POR is ~700us
 117       $display("[%t] POR complete",$time);
 118
 119       // Software control
 120       wishbone_write(32'h00009000 >> 2, 8'h0E); // DFII_CONTROL_ODT|DFII_CONTROL_RESET_N|DFI_CONTROL_CKE
 121
 122       wishbone_write(32'h0000900c >> 2, 32'h0); // p0 address
 123       wishbone_write(32'h00009010 >> 2, 32'h0); // p0 baddress
 124       wishbone_write(32'h00009000 >> 2, 8'h0C); // DFII_CONTROL_ODT|DFII_CONTROL_RESET_N
 125       #500000;
 126       wishbone_write(32'h00009000 >> 2, 8'h0E); // DFII_CONTROL_ODT|DFII_CONTROL_RESET_N|DFI_CONTROL_CKE
 127       #500000;
 128
 129       // Set MR2
 130       wishbone_write(32'h0000900c >> 2, 32'h200); // p0 address
 131       wishbone_write(32'h00009010 >> 2, 32'h2); // p0 baddress
 132       wishbone_write(32'h00009004 >> 2, 8'h0F); // RAS|CAS|WE|CS
 133       wishbone_write(32'h00009008 >> 2, 8'h01); // Command issue strobe
 134
 135       // Set MR3
 136       wishbone_write(32'h0000900c >> 2, 32'h0); // p0 address
 137       wishbone_write(32'h00009010 >> 2, 32'h3); // p0 baddress
 138       wishbone_write(32'h00009004 >> 2, 8'h0F); // RAS|CAS|WE|CS
 139       wishbone_write(32'h00009008 >> 2, 8'h01); // Command issue strobe
 140
 141       // Set MR1
 142       wishbone_write(32'h0000900c >> 2, 32'h6); // p0 address
 143       wishbone_write(32'h00009010 >> 2, 32'h1); // p0 baddress
 144       wishbone_write(32'h00009004 >> 2, 8'h0F); // RAS|CAS|WE|CS
 145       wishbone_write(32'h00009008 >> 2, 8'h01); // Command issue strobe
 146
 147       // Set MR0
 148       wishbone_write(32'h0000900c >> 2, 32'h320); // p0 address
 149       wishbone_write(32'h00009010 >> 2, 32'h0); // p0 baddress
 150       wishbone_write(32'h00009004 >> 2, 8'h0F); // RAS|CAS|WE|CS
 151       wishbone_write(32'h00009008 >> 2, 8'h01); // Command issue strobe
 152       #6000; // tDLLK
 153
 154       // ZQ calibration
 155       wishbone_write(32'h0000900c >> 2, 32'h400); // p0 address (A10=1)
 156       wishbone_write(32'h00009010 >> 2, 32'h0); // p0 baddress
 157       wishbone_write(32'h00009004 >> 2, 8'h03); // WE|CS
 158       wishbone_write(32'h00009008 >> 2, 8'h01); // Command issue strobe
 159       #6000; // tZQinit
 160
 161       // Hardware control
 162       wishbone_write(32'h00009000 >> 2, 8'h01); // DFII_CONTROL_SEL
 163       #2000;
 164
 165       // Write
 166       wishbone_write(32'h10000000 >> 2, 32'h12345678);
 167       #10000;
 168       wishbone_write(32'h10000100 >> 2, 32'h00000000);
 169       #10000;
 170       wishbone_read(32'h10000000 >> 2, tmp);
 171     end
 172
 173   task wishbone_write;
 174     input [31:0] address;
 175     input [31:0] value;
 176
 177     begin
 178       uart_send(8'h01); // Write command
 179       uart_send(8'h01); // Length
 180       uart_send(address[31:24]); // Address
 181       uart_send(address[23:16]);
 182       uart_send(address[15:8]);
 183       uart_send(address[7:0]);
 184       uart_send(value[31:24]);
 185       uart_send(value[23:16]);
 186       uart_send(value[15:8]);
 187       uart_send(value[7:0]);
 188     end
 189   endtask
 190
 191   task wishbone_read;
 192     input [31:0] address;
 193     output [31:0] value;
 194
 195     begin
 196       uart_send(8'h02); // Read command
 197       uart_send(8'h01); // Length
 198       uart_send(address[31:24]); // Address
 199       uart_send(address[23:16]);
 200       uart_send(address[15:8]);
 201       uart_send(address[7:0]);
 202       uart_read(value[31:24]);
 203       uart_read(value[23:16]);
 204       uart_read(value[15:8]);
 205       uart_read(value[7:0]);
 206     end
 207   endtask
 208
 209   task uart_send;
 210     input [7:0] data;
 211     integer i;
 212
 213     begin
 214       uart_rx <= 1'b0;
 215       #8680;
 216       for (i = 0; i < 8; i = i + 1)
 217         begin
 218           uart_rx <= data[i];
 219           #8680;
 220         end
 221       uart_rx <= 1'b1;
 222       #8680;
 223     end
 224   endtask
 225
 226   task uart_read;
 227     output [7:0] data;
 228     integer i;
 229
 230     begin
 231       while (uart_tx)
 232         begin
 233           #1;
 234         end
 235
 236       for (i = 0; i < 8; i = i+1)
 237         begin
 238           #8680 data[i] <= uart_tx;
 239         end
 240
 241       #8680;
 242     end
 243   endtask
 244 endmodule