module Log2pipelined
|
module Log2pipelined
|
|
|
/*
|
/*
|
A fast base-2 logarithm function, 24 bits in, 8 bits out.
|
A fast base-2 logarithm function, 24 bits in, 8 bits out.
|
Designed and coded by: Michael Dunn, http://www.cantares.on.ca/
|
Designed and coded by: Michael Dunn, http://www.cantares.on.ca/
|
(more info at the web site - see "Extras")
|
(more info at the web site - see "Extras")
|
Executes every cycle, with a latency of 3.
|
Executes every cycle, with a latency of 3.
|
License: Free to use & modify, but please keep this header intact.
|
License: Free to use & modify, but please keep this header intact.
|
July 18, 2010, Kitchener, Ontario, Canada
|
July 18, 2010, Kitchener, Ontario, Canada
|
This version not yet tested...
|
This version not yet tested... In fact, has a problem. Stay tuned.
|
*/
|
*/
|
|
|
(
|
(
|
input [23:0] DIN,
|
input [23:0] DIN,
|
input clk,
|
input clk,
|
|
|
output [7:0] DOUT
|
output [7:0] DOUT
|
);
|
);
|
|
|
|
|
// Comprises 3 main blocks: priority encoder, barrel shifter, and LUT
|
// Comprises 3 main blocks: priority encoder, barrel shifter, and LUT
|
|
|
reg [3:0] priencout1;
|
reg [3:0] priencout1;
|
reg [3:0] priencout2;
|
reg [3:0] priencout2;
|
reg [3:0] priencout3;
|
reg [3:0] priencout3;
|
reg [4:0] barrelout;
|
reg [4:0] barrelout;
|
reg [20:0] barrelin;
|
reg [20:0] barrelin;
|
reg [3:0] LUTout;
|
reg [3:0] LUTout;
|
|
|
|
|
|
|
always @(posedge clk) // Basic top-level connectivity
|
always @(posedge clk) // Basic top-level connectivity
|
begin
|
begin
|
priencout2 <= priencout1;
|
priencout2 <= priencout1;
|
priencout3 <= priencout2;
|
priencout3 <= priencout2;
|
barrelin <= DIN[23:3];
|
barrelin <= DIN[23:3];
|
end
|
end
|
|
|
assign DOUT = {priencout3, LUTout};
|
assign DOUT = {priencout3, LUTout};
|
|
|
|
|
|
|
wire [20:0] tmp1 = (barrelin << ~priencout1);
|
wire [20:0] tmp1 = (barrelin << ~priencout1);
|
always @(posedge clk) // Barrel shifter - OMG, it's a primitive in Verilog!
|
always @(posedge clk) // Barrel shifter - OMG, it's a primitive in Verilog!
|
begin
|
begin
|
barrelout <= tmp1[19:15];
|
barrelout <= tmp1[19:15];
|
end
|
end
|
|
|
|
|
|
|
wire [15:0] priencin = DIN[23:8];
|
wire [15:0] priencin = DIN[23:8];
|
|
|
always @(posedge clk) // Priority encoder
|
always @(posedge clk) // Priority encoder
|
|
|
casex (priencin)
|
casex (priencin)
|
|
|
16'b1xxxxxxxxxxxxxxx: priencout1 <= 15;
|
16'b1xxxxxxxxxxxxxxx: priencout1 <= 15;
|
16'b01xxxxxxxxxxxxxx: priencout1 <= 14;
|
16'b01xxxxxxxxxxxxxx: priencout1 <= 14;
|
16'b001xxxxxxxxxxxxx: priencout1 <= 13;
|
16'b001xxxxxxxxxxxxx: priencout1 <= 13;
|
16'b0001xxxxxxxxxxxx: priencout1 <= 12;
|
16'b0001xxxxxxxxxxxx: priencout1 <= 12;
|
16'b00001xxxxxxxxxxx: priencout1 <= 11;
|
16'b00001xxxxxxxxxxx: priencout1 <= 11;
|
16'b000001xxxxxxxxxx: priencout1 <= 10;
|
16'b000001xxxxxxxxxx: priencout1 <= 10;
|
16'b0000001xxxxxxxxx: priencout1 <= 9;
|
16'b0000001xxxxxxxxx: priencout1 <= 9;
|
16'b00000001xxxxxxxx: priencout1 <= 8;
|
16'b00000001xxxxxxxx: priencout1 <= 8;
|
16'b000000001xxxxxxx: priencout1 <= 7;
|
16'b000000001xxxxxxx: priencout1 <= 7;
|
16'b0000000001xxxxxx: priencout1 <= 6;
|
16'b0000000001xxxxxx: priencout1 <= 6;
|
16'b00000000001xxxxx: priencout1 <= 5;
|
16'b00000000001xxxxx: priencout1 <= 5;
|
16'b000000000001xxxx: priencout1 <= 4;
|
16'b000000000001xxxx: priencout1 <= 4;
|
16'b0000000000001xxx: priencout1 <= 3;
|
16'b0000000000001xxx: priencout1 <= 3;
|
16'b00000000000001xx: priencout1 <= 2;
|
16'b00000000000001xx: priencout1 <= 2;
|
16'b000000000000001x: priencout1 <= 1;
|
16'b000000000000001x: priencout1 <= 1;
|
16'b000000000000000x: priencout1 <= 0;
|
16'b000000000000000x: priencout1 <= 0;
|
|
|
endcase
|
endcase
|
|
|
|
|
|
|
/*
|
/*
|
LUT for log fraction lookup
|
LUT for log fraction lookup
|
- can be done with array or case:
|
- can be done with array or case:
|
|
|
case (addr)
|
case (addr)
|
0:out=0;
|
0:out=0;
|
.
|
.
|
31:out=15;
|
31:out=15;
|
endcase
|
endcase
|
|
|
OR
|
OR
|
|
|
wire [3:0] lut [0:31];
|
wire [3:0] lut [0:31];
|
assign lut[0] = 0;
|
assign lut[0] = 0;
|
.
|
.
|
assign lut[31] = 15;
|
assign lut[31] = 15;
|
|
|
Are there any better ways?
|
Are there any better ways?
|
*/
|
*/
|
|
|
// Let's try "case".
|
// Let's try "case".
|
// The equation is: output = log2(1+input/32)*16
|
// The equation is: output = log2(1+input/32)*16
|
// For larger tables, better to generate a separate data file using a program!
|
// For larger tables, better to generate a separate data file using a program!
|
|
|
always @(posedge clk)
|
always @(posedge clk)
|
case (barrelout)
|
case (barrelout)
|
|
|
0: LUTout <= 0;
|
0: LUTout <= 0;
|
1: LUTout <= 1;
|
1: LUTout <= 1;
|
2: LUTout <= 1;
|
2: LUTout <= 1;
|
3: LUTout <= 2;
|
3: LUTout <= 2;
|
4: LUTout <= 3;
|
4: LUTout <= 3;
|
5: LUTout <= 3;
|
5: LUTout <= 3;
|
6: LUTout <= 4;
|
6: LUTout <= 4;
|
7: LUTout <= 5;
|
7: LUTout <= 5;
|
8: LUTout <= 5;
|
8: LUTout <= 5;
|
9: LUTout <= 6;
|
9: LUTout <= 6;
|
10: LUTout <= 6;
|
10: LUTout <= 6;
|
11: LUTout <= 7;
|
11: LUTout <= 7;
|
12: LUTout <= 7;
|
12: LUTout <= 7;
|
13: LUTout <= 8;
|
13: LUTout <= 8;
|
14: LUTout <= 8;
|
14: LUTout <= 8;
|
15: LUTout <= 9;
|
15: LUTout <= 9;
|
16: LUTout <= 9;
|
16: LUTout <= 9;
|
17: LUTout <= 10;
|
17: LUTout <= 10;
|
18: LUTout <= 10;
|
18: LUTout <= 10;
|
19: LUTout <= 11;
|
19: LUTout <= 11;
|
20: LUTout <= 11;
|
20: LUTout <= 11;
|
21: LUTout <= 12;
|
21: LUTout <= 12;
|
22: LUTout <= 12;
|
22: LUTout <= 12;
|
23: LUTout <= 13;
|
23: LUTout <= 13;
|
24: LUTout <= 13;
|
24: LUTout <= 13;
|
25: LUTout <= 13;
|
25: LUTout <= 13;
|
26: LUTout <= 14;
|
26: LUTout <= 14;
|
27: LUTout <= 14;
|
27: LUTout <= 14;
|
28: LUTout <= 14; // calculated value is *slightly* closer to 15, but 14 makes for a smoother curve!
|
28: LUTout <= 14; // calculated value is *slightly* closer to 15, but 14 makes for a smoother curve!
|
29: LUTout <= 15;
|
29: LUTout <= 15;
|
30: LUTout <= 15;
|
30: LUTout <= 15;
|
31: LUTout <= 15;
|
31: LUTout <= 15;
|
|
|
endcase
|
endcase
|
|
|
endmodule
|
endmodule
|
|
|
