picture getting better again

[fpga-games] / galaxian / src / mc_sound_b.v

//===============================================================================\r
// FPGA MOONCRESTA WAVE SOUND\r
//\r
// Version : 1.00\r
//\r
// Copyright(c) 2004 Katsumi Degawa , All rights reserved\r
//\r
// Important !\r
//\r
// This program is freeware for non-commercial use. \r
// An author does no guarantee about this program.\r
// You can use this under your own risk.\r
//\r
//================================================================================\r
\r
\r
module mc_sound_b(\r
\r
I_CLK1,\r
I_CLK2,\r
I_RSTn,\r
I_SW,\r
\r
O_WAV_A0,\r
O_WAV_A1,\r
O_WAV_A2,\r
I_WAV_D0,\r
I_WAV_D1,\r
I_WAV_D2,\r
\r
O_SDAT\r
\r
);\r
\r
input  I_CLK1;   //  18MHz\r
input  I_CLK2;   //   6MHz\r
input  I_RSTn;\r
input  [2:0]I_SW;\r
output [7:0]O_SDAT;\r
output [18:0]O_WAV_A0;\r
output [18:0]O_WAV_A1;\r
output [18:0]O_WAV_A2;\r
input  [7:0]I_WAV_D0;\r
input  [7:0]I_WAV_D1;\r
input  [7:0]I_WAV_D2;\r
\r
parameter sample_time = 1670/2;  // sample time  22050Hz\r
//parameter sample_time = 1670;    // sample time  11025Hz\r
parameter fire_cnt = 14'h3FF0;\r
parameter hit_cnt  = 16'hA830;\r
parameter effect_cnt  = 16'hBFC0;\r
\r
reg   [9:0]sample;\r
reg   sample_pls;\r
\r
always@(posedge I_CLK1 or negedge I_RSTn)\r
begin\r
   if(I_RSTn == 1'b0)begin\r
      sample <= 0;\r
      sample_pls <= 0;\r
   end\r
   else begin\r
      sample <= (sample == sample_time-1)? 0 : sample+1;\r
      sample_pls <= (sample == sample_time-1)? 1 : 0 ;\r
   end\r
end\r
\r
//-----------  FIRE SOUND ------------------------------------------\r
reg   [13:0]fire_ad;\r
reg   [1:0]s0_trg_ff;\r
reg   s0_trg;\r
reg   s0_play;\r
\r
always@(posedge I_CLK1 or negedge I_RSTn)\r
begin\r
   if(I_RSTn == 1'b0)begin\r
      s0_trg_ff <= 0;\r
      s0_trg    <= 0;\r
   end\r
   else begin\r
      s0_trg_ff[0] <= I_SW[0];\r
      s0_trg_ff[1] <= s0_trg_ff[0];\r
      s0_trg       <= ~s0_trg_ff[1]&s0_trg_ff[0]&~s0_play;\r
   end\r
end\r
\r
always@(posedge I_CLK1 or negedge I_RSTn)\r
begin\r
   if(I_RSTn == 1'b0)\r
      s0_play <= 0;\r
   else begin\r
      if(fire_ad <= fire_cnt-1)\r
        s0_play <= 1;\r
      else\r
        s0_play <= 0;\r
   end\r
end\r
\r
always@(posedge I_CLK1 or negedge I_RSTn)\r
begin\r
   if(I_RSTn == 1'b0)\r
      fire_ad <= fire_cnt;\r
   else begin\r
      if(s0_trg) fire_ad <= 0;\r
      else begin\r
         if(sample_pls)begin \r
            if(fire_ad <= fire_cnt)\r
               fire_ad <= fire_ad +1 ;\r
            else\r
               fire_ad <= fire_ad ;\r
         end\r
      end\r
   end\r
end\r
//-----------  HIT SOUND ------------------------------------------\r
reg   [15:0]hit_ad;\r
reg   [1:0]s1_trg_ff;\r
reg   s1_trg;\r
reg   s1_play;\r
\r
always@(posedge I_CLK1 or negedge I_RSTn)\r
begin\r
   if(I_RSTn == 1'b0)begin\r
      s1_trg_ff <= 0;\r
      s1_trg    <= 0;\r
   end\r
   else begin\r
      s1_trg_ff[0] <= I_SW[1];\r
      s1_trg_ff[1] <= s1_trg_ff[0];\r
      s1_trg       <= ~s1_trg_ff[1]&s1_trg_ff[0]&~s1_play;\r
   end\r
end\r
\r
always@(posedge I_CLK1 or negedge I_RSTn)\r
begin\r
   if(I_RSTn == 1'b0)\r
      s1_play <= 0;\r
   else begin\r
      if(hit_ad <= hit_cnt-1)\r
        s1_play <= 1;\r
      else\r
        s1_play <= 0;\r
   end\r
end\r
\r
always@(posedge I_CLK1 or negedge I_RSTn)\r
begin\r
   if(I_RSTn == 1'b0)\r
      hit_ad <= hit_cnt;\r
   else begin\r
      if(s1_trg) hit_ad <= 0;\r
      else begin\r
         if(sample_pls)begin \r
            if(hit_ad <= hit_cnt)\r
               hit_ad <= hit_ad +1 ;\r
            else\r
               hit_ad <= hit_ad ;\r
         end\r
      end\r
   end\r
end\r
//-----------  EFFICT SOUND ---------------------------------------\r
reg    [15:0]effect_ad;\r
\r
always@(posedge I_CLK1 or negedge I_RSTn)\r
begin\r
   if(I_RSTn == 1'b0)\r
      effect_ad <= effect_cnt;\r
   else begin\r
      if(I_SW[2])begin\r
         if(sample_pls)begin\r
            if(effect_ad >= effect_cnt)\r
               effect_ad <= 0;\r
            else\r
               effect_ad <= effect_ad + 1;\r
         end\r
      end\r
      else begin\r
         effect_ad <= effect_cnt;\r
      end      \r
   end\r
end\r
\r
assign O_WAV_A0 = {3'h1,2'h0,fire_ad};\r
assign O_WAV_A1 = {3'h1,4'h4+hit_ad[15:12],hit_ad[11:0]};\r
assign O_WAV_A2 = {3'h2,effect_ad};\r
\r
wire   [7:0]W_WAV_D0 = I_WAV_D0;\r
wire   [7:0]W_WAV_D1 = I_WAV_D1;\r
wire   [7:0]W_WAV_D2 = I_WAV_D2;\r
\r
//   sound mix\r
wire   [8:0]mix0 = W_WAV_D0 + W_WAV_D1 ; \r
reg    [8:0]mix_0;\r
always@(posedge I_CLK1)\r
begin\r
   if(mix0 >= 9'h17F)     // POS Limiter\r
      mix_0 <= 9'h0FF;\r
   else if(mix0 <= 9'h080)// NEG Limiter\r
      mix_0 <= 9'h000;\r
   else\r
      mix_0 <= mix0 - 9'h080; \r
end\r
\r
wire   [8:0]mix1 = mix0[7:0] + W_WAV_D2 ; \r
reg    [8:0]mix_1;\r
always@(posedge I_CLK1)\r
begin\r
   if(mix1 >= 9'h17F)     // POS Limiter\r
      mix_1 <= 9'h0FF;\r
   else if(mix1 <= 9'h080)// NEG Limiter\r
      mix_1 <= 9'h000;\r
   else\r
      mix_1 <= mix1 - 9'h080; \r
end\r
\r
assign O_SDAT = mix_1[7:0];\r
\r
\r
endmodule\r