module univ_barrel8 (
input [7:0] x,
input [2:0] sh,
input [2:0] mode,
output reg [7:0] y
);
always @(*) begin
case (mode)
3'b000: y <= x; // no shift
3'b001: y <= x << sh; // logical left shift
3'b010: y <= x >> sh; // logical right shift
3'b011: y <= $signed(x) >>> sh; // arithmetic right shift
3'b100: y <= (x << sh) | (x >> (8-sh)); // rotate left
3'b101: y <= (x >> sh) | (x << (8-sh)); // rotate right
default: y <= x;
endcase
end
endmodule