`default_nettype none
module ser_shift
  (
   input       i_clk,
   input       i_load,
   input [4:0] i_shamt,
   input       i_sr,
   input       i_d,
   output      o_q);

   wire [31:0] shiftreg;

   reg         signbit = 1'b0;
   reg         wrapped = 1'b0;
   reg [4:0]   cnt = 5'd0;
   
   shift_reg #(.LEN (32)) sh_reg
     (.clk (i_clk),
      .i_en (i_load),
      .i_d  (i_d),
      .o_q  (shiftreg[0]),
      .o_par (shiftreg[31:1]));

   always @(posedge i_clk) begin
      cnt <= cnt + 1;
      if (i_load) begin
         cnt <= i_shamt;
         wrapped <= 1'b0;
      end

      if (cnt == 31) begin
         signbit <= shiftreg[cnt];
         wrapped <= 1'b1;
      end
         
   end

   assign o_q = wrapped ? signbit : shiftreg[cnt];
   
endmodule