From f3721c523fa098445fa3e96eebd10744bdc2b223 Mon Sep 17 00:00:00 2001
From: Blaise Tine <tinebp@yahoo.com>
Date: Tue, 28 Jul 2020 06:02:32 -0400
Subject: [PATCH] minor update

---
 hw/rtl/libs/VX_multiplier.v     | 76 +++++++++++++++++++++++++++++++++
 hw/rtl/libs/VX_shift_register.v | 50 ++++++++++++++++++++++
 2 files changed, 126 insertions(+)
 create mode 100644 hw/rtl/libs/VX_multiplier.v
 create mode 100644 hw/rtl/libs/VX_shift_register.v

diff --git a/hw/rtl/libs/VX_multiplier.v b/hw/rtl/libs/VX_multiplier.v
new file mode 100644
index 00000000..c5def2ae
--- /dev/null
+++ b/hw/rtl/libs/VX_multiplier.v
@@ -0,0 +1,76 @@
+`include "VX_define.vh"
+
+module VX_multiplier #(
+    parameter WIDTHA = 1,
+    parameter WIDTHB = 1,
+    parameter WIDTHP = 1,
+    parameter SIGNED = 0,
+    parameter PIPELINE = 0
+) (
+    input wire clk,
+    input wire reset,
+
+    input wire clk_en,
+    input wire [WIDTHA-1:0]  dataa,
+    input wire [WIDTHB-1:0]  datab,
+    output wire [WIDTHP-1:0] result
+);
+
+`ifdef QUARTUS
+
+    lpm_mult quartus_mult (
+        .clock  (clk),
+        .dataa  (dataa),
+        .datab  (datab),
+        .result (result),
+        .sclr   (reset),
+        .aclr   (1'b0),
+        .clken  (clk_en),
+        .sum    (1'b0)
+    );
+
+    defparam quartus_mult.lpm_type = "LPM_MULT",
+             quartus_mult.lpm_widtha = WIDTHA,
+             quartus_mult.lpm_widthb = WIDTHB,
+             quartus_mult.lpm_widthp = WIDTHP,
+             quartus_mult.lpm_representation = SIGNED ? "SIGNED" : "UNSIGNED",
+             quartus_mult.lpm_pipeline = PIPELINE,
+             quartus_mult.lpm_hint = "DEDICATED_MULTIPLIER_CIRCUITRY=YES,MAXIMIZE_SPEED=9";
+`else
+
+    wire [WIDTHP-1:0] result_unqual;
+
+    if (SIGNED) begin
+        assign result_unqual = $signed(dataa) * $signed(datab);
+    end else begin
+        assign result_unqual = dataa * datab;
+    end
+    
+    if (PIPELINE == 0) begin
+        assign result = result_unqual;
+    end else begin
+        
+        reg [WIDTHP-1:0] result_pipe [0:PIPELINE-1];
+
+        genvar i;
+        for (i = 0; i < PIPELINE; i++) begin
+            always @(posedge clk) begin
+                if (reset) begin
+                    result_pipe[i] <= 0;
+                end
+                else if (clk_en) begin
+                    if (i == 0) begin
+                        result_pipe[i] <= result_unqual;
+                    end else begin
+                        result_pipe[i] <= result_pipe[i-1];
+                    end                    
+                end
+            end
+        end
+        
+        assign result = result_pipe[PIPELINE-1]; 
+    end
+
+`endif
+
+endmodule
\ No newline at end of file
diff --git a/hw/rtl/libs/VX_shift_register.v b/hw/rtl/libs/VX_shift_register.v
new file mode 100644
index 00000000..46ca494c
--- /dev/null
+++ b/hw/rtl/libs/VX_shift_register.v
@@ -0,0 +1,50 @@
+`include "VX_define.vh"
+
+module VX_shift_register #( 
+    parameter DATAW = 1, 
+    parameter DEPTH = 0
+) (
+    input wire              clk,
+    input wire              reset,
+    input wire              enable,
+    input wire [DATAW-1:0]  in,
+    output wire [DATAW-1:0] out
+);
+    if (0 == DEPTH) begin
+
+        assign out = in;
+
+    end if (1 == DEPTH) begin
+
+        reg [DATAW-1:0] ram;
+
+        always @(posedge clk) begin
+            if (reset) begin
+                ram <= '0;
+            end else begin
+                if (enable) begin                    
+                    ram <= in;
+                end
+            end
+        end
+
+        assign out = ram;
+
+    end else begin        
+        
+        reg [DEPTH-1:0][DATAW-1:0] ram;
+        
+        always @(posedge clk) begin
+            if (reset) begin
+                ram <= '0;
+            end else begin
+                if (enable) begin                    
+                    ram <= {ram[DEPTH-2:0], in};
+                end
+            end
+        end
+
+        assign out = ram [DEPTH-1];
+    end    
+
+endmodule
\ No newline at end of file