From e583c9f977f47a356a0e45e770aa9ff3adf05ed4 Mon Sep 17 00:00:00 2001
From: Konstantin Pavlov <pavlovconst@gmail.com>
Date: Mon, 16 May 2022 19:44:36 +0300
Subject: [PATCH] Added reference souce code dir

---
 .../___reference_sourcecode/dynamic_delay.sv  | 87 +++++++++++++++++++
 .../___reference_sourcecode/main.sv           | 43 +++++++++
 2 files changed, 130 insertions(+)
 create mode 100755 benchmark_projects/___reference_sourcecode/dynamic_delay.sv
 create mode 100755 benchmark_projects/___reference_sourcecode/main.sv

diff --git a/benchmark_projects/___reference_sourcecode/dynamic_delay.sv b/benchmark_projects/___reference_sourcecode/dynamic_delay.sv
new file mode 100755
index 0000000..8387e97
--- /dev/null
+++ b/benchmark_projects/___reference_sourcecode/dynamic_delay.sv
@@ -0,0 +1,87 @@
+//--------------------------------------------------------------------------------
+// dynamic_delay.sv
+// published as part of https://github.com/pConst/basic_verilog
+// Konstantin Pavlov, pavlovconst@gmail.com
+//--------------------------------------------------------------------------------
+
+// INFO --------------------------------------------------------------------------------
+//  Dynamic delay for arbitrary signal.
+//
+//  Incoming data elements have WIDTH bits each. Module does serialization of
+//  input data and outputs flattened bits, based on provided selector value.
+//  You can perform delays bit-wize, not just element-wize.
+//
+//  CAUTION: Be careful selecting last, most-delayed "WIDTH" number of bits.
+//           The module intentionally does NOT implement "out of range"
+//           checks. Please handle them externally.
+
+
+
+/* --- INSTANTIATION TEMPLATE BEGIN ---
+
+dynamic_delay #(
+  .LENGTH( 3 ),
+  .WIDTH( 4 )
+) M (
+  .clk( clk ),
+  .nrst( nrst ),
+  .ena( 1'b1 ),
+  .in( in_data[3:0] ),
+  .sel( sel[3:0] ),
+  .out( out_data[3:0] )
+);
+
+--- INSTANTIATION TEMPLATE END ---*/
+
+
+module dynamic_delay #( parameter
+  LENGTH = 63,                        // maximum delay chain length
+  WIDTH = 4,                          // data width
+
+  SEL_W = $clog2( (LENGTH+1)*WIDTH )  // output selector width
+                                      //  plus one is for zero delay element
+)(
+  input clk,
+  input nrst,
+  input ena,
+  input [WIDTH-1:0] in,               // input data
+                                      // bit in[0] is the "oldest" one
+                                      // bit in[WIDTH] is considered the most recent
+  input [SEL_W-1:0] sel,              // output selector
+  output logic [WIDTH-1:0] out        // output data
+);
+
+
+
+logic [(LENGTH+1)-1:0][WIDTH-1:0] data = '0;
+
+// packed vector includes extra bits
+logic [(LENGTH+1)*WIDTH-1:0] pack_data;
+assign pack_data[(LENGTH+1)*WIDTH-1:0] = data;
+
+integer i;
+always_ff @(posedge clk) begin
+  if( ~nrst ) begin
+    // reset all data except zero element
+    for( i=1; i<(LENGTH+1); i=i+1 ) begin
+      data[i][WIDTH-1:0] <= '0;
+    end
+  end else if (ena) begin
+    for( i=1; i<(LENGTH+1); i=i+1 ) begin
+      data[i][WIDTH-1:0] <= data[i-1][WIDTH-1:0];
+    end
+  end
+end
+
+integer j;
+always_comb begin
+  // zero element assignment
+  data[0][WIDTH-1:0] <= in[WIDTH-1:0];
+
+  // output selector, sel==0 gives non-delayed output
+  for( j=0; j<WIDTH; j=j+1 ) begin
+    out[j] <= pack_data[sel[SEL_W-1:0]+j];
+  end
+end
+
+endmodule
diff --git a/benchmark_projects/___reference_sourcecode/main.sv b/benchmark_projects/___reference_sourcecode/main.sv
new file mode 100755
index 0000000..2aec2d7
--- /dev/null
+++ b/benchmark_projects/___reference_sourcecode/main.sv
@@ -0,0 +1,43 @@
+//------------------------------------------------------------------------------
+// main.sv
+// published as part of https://github.com/pConst/basic_verilog
+// Konstantin Pavlov, pavlovconst@gmail.com
+//------------------------------------------------------------------------------
+
+// INFO ------------------------------------------------------------------------
+// Reference benchmark project
+//
+// This project uses dynamic_delay.sv module to model both high-register count and
+// combinational-intensive design. See "Messages" tab for TOTAL time
+// spent for compilation. This will give you some quantitive charachteristic
+// of your environment processing power
+
+`define WIDTH 16
+`define LENGTH 1024
+`define SEL_W $clog2(`LENGTH)
+
+
+module main(
+
+  input clk,
+  input nrst,
+
+  input [`WIDTH-1:0] id,
+  input [`SEL_W-1:0] sel,
+  output [`WIDTH-1:0] od
+);
+
+dynamic_delay #(
+  .LENGTH( `LENGTH ),
+  .WIDTH( 1 ),
+  .SEL_W( `SEL_W )
+) dd [`WIDTH-1:0] (
+  .clk( {`WIDTH{clk}} ),
+  .nrst( {`WIDTH{nrst}} ),
+  .ena( {`WIDTH{1'b1}} ),
+  .in( id[`WIDTH-1:0] ),
+  .sel( {`WIDTH{sel[`SEL_W-1:0]}} ),
+  .out( od[`WIDTH-1:0] )
+);
+
+endmodule