1
0
mirror of https://github.com/Gehstock/Mist_FPGA.git synced 2026-05-04 07:19:03 +00:00
Files
Gehstock.Mist_FPGA/common/Sound/jt89/jt89_noise.v
2021-06-15 22:36:02 +02:00

77 lines
2.1 KiB
Verilog

/* This file is part of JT89.
JT89 is free software: you can redistribute it and/or modify
it under the terms of the GNU General Public License as published by
the Free Software Foundation, either version 3 of the License, or
(at your option) any later version.
JT89 is distributed in the hope that it will be useful,
but WITHOUT ANY WARRANTY; without even the implied warranty of
MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
GNU General Public License for more details.
You should have received a copy of the GNU General Public License
along with JT89. If not, see <http://www.gnu.org/licenses/>.
Author: Jose Tejada Gomez. Twitter: @topapate
Version: 1.0
Date: March, 8th 2017
This work was originally based in the implementation found on the
SMS core of MiST
*/
module jt89_noise(
input clk,
(* direct_enable = 1 *) input clk_en,
input rst,
input clr,
input [2:0] ctrl3,
input [3:0] vol,
input [9:0] tone2,
output [8:0] snd
);
reg [15:0] shift;
reg [10:0] cnt;
reg update;
jt89_vol u_vol(
.rst ( rst ),
.clk ( clk ),
.clk_en ( clk_en ),
.din ( shift[0] ),
.vol ( vol ),
.snd ( snd )
);
always @(posedge clk)
if( rst ) begin
cnt <= 'd0;
end else if( clk_en ) begin
if( cnt==11'd1 ) begin
case( ctrl3[1:0] )
2'd0: cnt <= 11'h20; // clk_en already divides by 16
2'd1: cnt <= 11'h40;
2'd2: cnt <= 11'h80;
2'd3: cnt <= (tone2 == 0) ? 11'h02 : {tone2, 1'b0};
endcase
end else begin
cnt <= cnt-11'b1;
end
end
wire fb = ctrl3[2]?(shift[0]^shift[3]):shift[0];
always @(posedge clk)
if( rst || clr )
shift <= { 1'b1, 15'd0 };
else if( clk_en ) begin
if( cnt==1 ) begin
shift <= (|shift == 1'b0) ? {1'b1, 15'd0 } : {fb, shift[15:1]};
end
end
endmodule