colour fix

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

//===============================================================================\r
// FPGA MOONCRESTA    LOGIC IP MODULE\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
//================================================\r
// 74xx138\r
// 3-to-8 line decoder\r
//================================================\r
module  logic_74xx138(\r
\r
I_G1,\r
I_G2a,\r
I_G2b,\r
I_Sel,\r
O_Q\r
\r
);\r
\r
input  I_G1,I_G2a,I_G2b;\r
input  [2:0]I_Sel;\r
output [7:0]O_Q;\r
\r
reg    [7:0]O_Q;\r
wire   [2:0]I_G = {I_G1,I_G2a,I_G2b};\r
always@(I_G or I_Sel or O_Q)\r
begin\r
   if(I_G == 3'b100 )begin\r
      case(I_Sel)\r
         3'b000: O_Q = 8'b11111110;\r
         3'b001: O_Q = 8'b11111101;\r
         3'b010: O_Q = 8'b11111011;\r
         3'b011: O_Q = 8'b11110111;\r
         3'b100: O_Q = 8'b11101111;\r
         3'b101: O_Q = 8'b11011111;\r
         3'b110: O_Q = 8'b10111111;\r
         3'b111: O_Q = 8'b01111111;\r
	  endcase\r
   end\r
   else begin\r
      O_Q = 8'b11111111;\r
   end\r
end\r
\r
endmodule\r
\r
//================================================\r
// 74xx139\r
// 2-to-4 line decoder\r
//================================================\r
module  logic_74xx139(\r
\r
I_G,\r
I_Sel,\r
O_Q\r
\r
);\r
\r
input  I_G;\r
input  [1:0]I_Sel;\r
output [3:0]O_Q;\r
\r
reg    [3:0]O_Q;\r
always@(I_G or I_Sel or O_Q)\r
begin\r
   if(I_G == 1'b0 )begin\r
      case(I_Sel)\r
         2'b00: O_Q = 4'b1110;\r
         2'b01: O_Q = 4'b1101;\r
         2'b10: O_Q = 4'b1011;\r
         2'b11: O_Q = 4'b0111;\r
	  endcase\r
   end\r
   else begin\r
      O_Q = 4'b1111;\r
   end\r
end\r
\r
endmodule\r