impact 11 renamed the intel flash...

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

//===============================================================================\r
// FPGA MOONCRESTA SOUND I/F\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_a(\r
\r
I_CLK_12M,\r
I_CLK_6M,\r
I_H_CNT1,\r
I_BD,\r
I_PITCHn,\r
I_VOL1,\r
I_VOL2,\r
\r
O_SDAT,\r
O_DO\r
\r
);\r
\r
input  I_CLK_12M;\r
input  I_CLK_6M;\r
input  I_H_CNT1;\r
input  [7:0]I_BD;\r
input  I_PITCHn;\r
input  I_VOL1;\r
input  I_VOL2;\r
\r
output [3:0]O_DO;\r
output [7:0]O_SDAT;\r
\r
reg    W_PITCHn;\r
reg    W_89K_LDn;\r
reg    [7:0]W_89K_Q;\r
reg    [7:0]W_89K_LDATA;\r
reg    [3:0]W_6T_Q;\r
\r
always@(posedge I_CLK_12M) \r
begin\r
   W_PITCHn  <= I_PITCHn;\r
   W_89K_LDn <= ~(&W_89K_Q[7:0]);\r
end\r
\r
// Parts 9J\r
always@(posedge W_PITCHn) W_89K_LDATA <= I_BD;\r
\r
always@(posedge I_H_CNT1)\r
begin\r
   if(~W_89K_LDn)\r
      W_89K_Q <= W_89K_LDATA;\r
   else\r
      W_89K_Q <= W_89K_Q + 1;  \r
end\r
\r
always@(negedge W_89K_LDn) W_6T_Q <= W_6T_Q + 1;\r
assign O_DO = W_6T_Q;\r
\r
reg    [7:0]W_SDAT0;\r
reg    [7:0]W_SDAT2;\r
reg    [7:0]W_SDAT3;\r
always@(posedge I_CLK_6M)\r
begin\r
   W_SDAT0 <= W_6T_Q[0]==1'b0 ? 8'd0 : 8'd42 ;\r
   W_SDAT2 <= W_6T_Q[2]==1'b0 ? 8'd0 : I_VOL1 ? 8'd105 : 8'd57 ;\r
   W_SDAT3 <= W_6T_Q[3]==1'b0 ? 8'd0 : I_VOL2 ? 8'd72  : 8'd0  ;\r
end\r
\r
assign O_SDAT = W_SDAT0 + W_SDAT2 + W_SDAT3 + 8'd20 ;\r
\r
\r
endmodule