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

//===============================================================================\r
// FPGA GALAXIAN  VIDEO\r
//\r
// Version : 2.50\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
// 2004- 4-30  galaxian modify by K.DEGAWA\r
// 2004- 5- 6  first release.\r
// 2004- 8-23  Improvement with T80-IP.\r
// 2004- 9-22  The problem which missile didn't sometimes come out from was improved.\r
//================================================================================\r
//-----------------------------------------------------------------------------------------\r
// H_CNT[0],H_CNT[1],H_CNT[2],H_CNT[3],H_CNT[4],H_CNT[5],H_CNT[6],H_CNT[7],H_CNT[8],  \r
//    1 H     2 H      4H       8H       16 H     32H      64 H     128 H   256 H\r
//-----------------------------------------------------------------------------------------\r
// V_CNT[0], V_CNT[1], V_CNT[2], V_CNT[3], V_CNT[4], V_CNT[5], V_CNT[6], V_CNT[7]  \r
//    1 V      2 V       4 V       8 V       16 V      32 V      64 V     128 V \r
//-----------------------------------------------------------------------------------------\r
\r
module mc_video(\r
\r
I_CLK_18M,\r
I_CLK_12M,\r
I_CLK_6M,\r
I_CLK_6Mn,\r
I_H_CNT,\r
I_V_CNT,\r
I_H_FLIP,\r
I_V_FLIP,\r
I_V_BLn,\r
I_C_BLn,\r
\r
I_A,\r
I_OBJ_SUB_A,\r
I_BD,\r
I_OBJ_RAM_RQn,\r
I_OBJ_RAM_RDn,\r
I_OBJ_RAM_WRn,\r
I_VID_RAM_RDn,\r
I_VID_RAM_WRn,\r
\r
O_C_BLnX,\r
O_8HF,\r
O_256HnX,\r
O_1VF,\r
O_MISSILEn,\r
O_SHELLn,\r
O_BD,\r
O_VID,\r
O_COL\r
\r
);\r
\r
input  I_CLK_18M;\r
input  I_CLK_12M;\r
input  I_CLK_6M;\r
input  I_CLK_6Mn;\r
input  [8:0]I_H_CNT;\r
input  [7:0]I_V_CNT;\r
input  I_H_FLIP;\r
input  I_V_FLIP;\r
input  I_V_BLn;\r
input  I_C_BLn;\r
\r
input  [9:0]I_A;\r
input  [7:0]I_BD;\r
input  [2:0]I_OBJ_SUB_A;\r
input  I_OBJ_RAM_RQn;\r
input  I_OBJ_RAM_RDn;\r
input  I_OBJ_RAM_WRn;\r
input  I_VID_RAM_RDn;\r
input  I_VID_RAM_WRn;\r
\r
output O_C_BLnX;\r
output O_8HF;\r
output O_256HnX;\r
output O_1VF;\r
output O_MISSILEn;\r
output O_SHELLn;\r
\r
output [7:0]O_BD;\r
output [1:0]O_VID;\r
output [2:0]O_COL;\r
\r
wire   WB_LDn;\r
wire   WB_CNTRLDn;\r
wire   WB_CNTRCLRn;\r
wire   WB_COLLn;\r
wire   WB_VPLn;\r
wire   WB_OBJDATALn;\r
wire   WB_MLDn;\r
wire   WB_SLDn;\r
wire   W_3D;\r
reg    W_LDn;\r
reg    W_CNTRLDn;\r
reg    W_CNTRCLRn;\r
reg    W_COLLn;\r
reg    W_VPLn;\r
reg    W_OBJDATALn;\r
reg    W_MLDn;\r
reg    W_SLDn;\r
\r
always@(negedge I_CLK_12M)\r
begin\r
   W_LDn <= WB_LDn;\r
   W_CNTRLDn <= WB_CNTRLDn;\r
   W_CNTRCLRn <= WB_CNTRCLRn;\r
   W_COLLn <= WB_COLLn;\r
   W_VPLn <= WB_VPLn;\r
   W_OBJDATALn <= WB_OBJDATALn;\r
   W_MLDn <= WB_MLDn;\r
   W_SLDn <= WB_SLDn;\r
end\r
\r
mc_ld_pls LD_PLS(\r
\r
.I_CLK_6M(I_CLK_6M),\r
.I_H_CNT(I_H_CNT),\r
.I_3D_DI(W_3D),\r
\r
.O_LDn(WB_LDn),\r
.O_CNTRLDn(WB_CNTRLDn),\r
.O_CNTRCLRn(WB_CNTRCLRn),\r
.O_COLLn(WB_COLLn),\r
.O_VPLn(WB_VPLn),\r
.O_OBJDATALn(WB_OBJDATALn),\r
.O_MLDn(WB_MLDn),\r
.O_SLDn(WB_SLDn)\r
\r
);\r
\r
wire   W_H_FLIP1 = ~I_H_CNT[8]&I_H_FLIP;\r
\r
wire   [7:3]W_HF_CNT = I_H_CNT[7:3]^{5{W_H_FLIP1}};\r
wire   [7:0]W_VF_CNT = I_V_CNT[7:0]^{8{I_V_FLIP}};\r
\r
assign O_8HF = W_HF_CNT[3];\r
assign O_1VF = W_VF_CNT[0];\r
\r
reg    [7:0]W_OBJ_D;\r
wire   [3:0]W_6J_DA = {I_H_FLIP  ,           W_HF_CNT[7],W_HF_CNT[3],I_H_CNT[2]};\r
wire   [3:0]W_6J_DB = {W_OBJ_D[6],W_HF_CNT[3]&I_H_CNT[1], I_H_CNT[2],I_H_CNT[1]};\r
wire   [3:0]W_6J_Q  = I_H_CNT[8] ? W_6J_DB:W_6J_DA;\r
\r
wire   W_H_FLIP2 = W_6J_Q[3];\r
//   Prats  4F,5F\r
wire   [7:0]W_OBJ_RAM_AB = {1'b0,I_H_CNT[8],W_6J_Q[2],W_HF_CNT[6:4],W_6J_Q[1:0]};\r
wire   [7:0]W_OBJ_RAM_A  = I_OBJ_RAM_RQn ? W_OBJ_RAM_AB: I_A[7:0] ;\r
\r
wire   [7:0]W_OBJ_RAM_DOA,W_OBJ_RAM_DOB;\r
\r
reg    [7:0]W_H_POSI;\r
always@(posedge I_CLK_12M) W_H_POSI <= W_OBJ_RAM_DOB;\r
\r
mc_obj_ram OBJ_RAM(\r
\r
.I_CLKA(I_CLK_12M),\r
.I_ADDRA(I_A[7:0]),\r
.I_WEA(~I_OBJ_RAM_WRn),\r
.I_CEA(~I_OBJ_RAM_RQn),\r
.I_DA(I_BD),\r
.O_DA(W_OBJ_RAM_DOA),\r
\r
.I_CLKB(I_CLK_12M),\r
.I_ADDRB(W_OBJ_RAM_AB),\r
.I_WEB(1'b0),\r
.I_CEB(1'b1),\r
.I_DB(8'h00),\r
.O_DB(W_OBJ_RAM_DOB)\r
\r
);\r
\r
wire   [7:0]W_OBJ_RAM_D = I_OBJ_RAM_RDn ?  8'h00: W_OBJ_RAM_DOA;\r
//   Prats  4L\r
always@(posedge W_OBJDATALn) W_OBJ_D <= W_H_POSI; \r
//   Prats  4,5N\r
\r
wire   [8:0]W_45N_Q = W_VF_CNT[7:0] + W_H_POSI ;\r
assign W_3D = ~(&W_45N_Q[7:0]); \r
\r
reg    [7:0]W_2M_Q;\r
always@(posedge W_VPLn or negedge I_V_BLn)\r
begin\r
   if(I_V_BLn==1'b0)\r
      W_2M_Q <= 0;\r
   else\r
      W_2M_Q <= W_45N_Q[7:0];\r
end\r
\r
wire   W_2N = I_H_CNT[8]&W_OBJ_D[7];\r
wire   [3:0]W_1M = W_2M_Q[3:0]^{W_2N,W_2N,W_2N,W_2N};\r
\r
wire   W_VID_RAM_CSn = I_VID_RAM_RDn & I_VID_RAM_WRn;\r
\r
wire   [7:0]W_VID_RAM_DI = I_VID_RAM_WRn ? 8'h00 : I_BD ;\r
wire   [7:0]W_VID_RAM_DOA;\r
\r
wire   [11:0]W_VID_RAM_AA = {~(&W_2M_Q[7:4]),W_VID_RAM_CSn,              10'h00 /*I_A[9:0]*/};\r
wire   [11:0]W_VID_RAM_AB = {           1'b0,         1'b0,W_2M_Q[7:4],W_1M[3],W_HF_CNT[7:3]};\r
\r
wire   [11:0]W_VID_RAM_A  = I_C_BLn ? W_VID_RAM_AB:W_VID_RAM_AA;\r
\r
wire   [7:0]W_VID_RAM_D = I_VID_RAM_RDn ? 8'h00 :W_VID_RAM_DOA;\r
\r
wire   [7:0]W_VID_RAM_DOB;\r
\r
mc_vid_ram VID_RAM(\r
\r
.I_CLKA(I_CLK_12M),\r
.I_ADDRA(I_A[9:0]),\r
.I_DA(W_VID_RAM_DI),\r
.I_WEA(~I_VID_RAM_WRn),\r
.I_CEA(~W_VID_RAM_CSn),\r
.O_DA(W_VID_RAM_DOA),\r
\r
.I_CLKB(I_CLK_12M),\r
.I_ADDRB(W_VID_RAM_A[9:0]),\r
.I_DB(8'h00),\r
.I_WEB(1'b0),\r
.I_CEB(1'b1),\r
.O_DB(W_VID_RAM_DOB)\r
\r
);\r
//--  VIDEO DATA OUTPUT  --------------\r
assign O_BD = W_OBJ_RAM_D | W_VID_RAM_D;\r
\r
wire   W_SRLD = ~(W_LDn | W_VID_RAM_A[11]);\r
\r
wire   [7:0]W_OBJ_ROM_AB = {W_OBJ_D[5:0],W_1M[3],W_OBJ_D[6]^I_H_CNT[3]};\r
\r
wire   [7:0]W_OBJ_ROM_A = I_H_CNT[8] ? W_OBJ_ROM_AB: W_VID_RAM_DOB;\r
\r
wire   [10:0]W_O_OBJ_ROM_A = {W_OBJ_ROM_A,W_1M[2:0]};\r
\r
wire   [7:0]W_1K_D;\r
wire   [7:0]W_1H_D;\r
\r
//1K VID-Rom\r
GALAXIAN_1K K_ROM(\r
.CLK(I_CLK_12M),\r
.ADDR(W_O_OBJ_ROM_A),\r
.DATA(W_1K_D),\r
.ENA(1'b1)\r
);\r
\r
//1H VID-Rom\r
GALAXIAN_1H H_ROM(\r
.CLK(I_CLK_12M),\r
.ADDR(W_O_OBJ_ROM_A),\r
.DATA(W_1H_D),\r
.ENA(1'b1)\r
);\r
\r
\r
//---------------------------------------------------------------------------------\r
wire   W_2L_Qa,W_2K_Qd;\r
wire   W_2J_Qa,W_2H_Qd;\r
wire   W_H_FLIP2X;\r
\r
wire   [3:0]W_3L_A = {W_2J_Qa,W_2L_Qa,  1'b1,W_SRLD};\r
wire   [3:0]W_3L_B = {W_2H_Qd,W_2K_Qd,W_SRLD,  1'b1};  \r
wire   [3:0]W_3L_Y = W_H_FLIP2X ? W_3L_B: W_3L_A;   //  [3]=RAW1,[2]=RAW0\r
\r
wire   W_RAW0 = W_3L_Y[2];\r
wire   W_RAW1 = W_3L_Y[3];\r
\r
wire   W_SRCLK = I_CLK_6M;\r
//------  PARTS 2KL  ---------------------------------------------- \r
wire   [1:0]C_2KL = W_3L_Y[1:0];\r
wire   [7:0]I_2KL = W_1K_D;\r
reg    [7:0]reg_2KL;\r
\r
assign W_2L_Qa = reg_2KL[7];\r
assign W_2K_Qd = reg_2KL[0];\r
always@(posedge W_SRCLK)\r
begin\r
   case(C_2KL)\r
      2'b00: reg_2KL <= reg_2KL;\r
      2'b10: reg_2KL <= {reg_2KL[6:0],1'b0};\r
      2'b01: reg_2KL <= {1'b0,reg_2KL[7:1]};\r
      2'b11: reg_2KL <= I_2KL;\r
   endcase\r
end\r
//------  PARTS 2HJ  ---------------------------------------------- \r
wire   [1:0]C_2HJ = W_3L_Y[1:0];\r
wire   [7:0]I_2HJ = W_1H_D;\r
reg    [7:0]reg_2HJ;\r
\r
assign W_2J_Qa = reg_2HJ[7];\r
assign W_2H_Qd = reg_2HJ[0];\r
always@(posedge W_SRCLK)\r
begin\r
   case(C_2HJ)\r
      2'b00: reg_2HJ <= reg_2HJ;\r
      2'b10: reg_2HJ <= {reg_2HJ[6:0],1'b0};\r
      2'b01: reg_2HJ <= {1'b0,reg_2HJ[7:1]};\r
      2'b11: reg_2HJ <= I_2HJ;\r
   endcase\r
end\r
\r
//-----  SHT2 -----------------------------------------------------\r
//  Prats 6K\r
reg    [2:0]W_6K_Q;\r
always@(posedge W_COLLn) W_6K_Q <= W_H_POSI[2:0];\r
\r
//  Prats 6P\r
reg    [6:0]W_6P_Q;\r
always@(posedge I_CLK_6M)\r
begin\r
   if(W_LDn==1'b0) W_6P_Q <= {W_H_FLIP2,W_H_FLIP1,I_C_BLn,~I_H_CNT[8],W_6K_Q[2:0]};\r
   else            W_6P_Q <= W_6P_Q;\r
end\r
\r
assign W_H_FLIP2X = W_6P_Q[6];\r
wire   W_H_FLIP1X = W_6P_Q[5];\r
wire   W_C_BLnX   = W_6P_Q[4];\r
wire   W_256HnX   = W_6P_Q[3];\r
wire   [2:0]W_CD  = W_6P_Q[2:0];\r
\r
assign O_256HnX   = W_256HnX;\r
assign O_C_BLnX   = W_C_BLnX;\r
\r
wire   W_45T_CLR = W_CNTRCLRn | W_256HnX ;\r
reg    [7:0]W_45T_Q;\r
\r
always@(posedge I_CLK_6M)\r
begin\r
   if(W_45T_CLR==1'b0)\r
      W_45T_Q <= 0;\r
   else if(W_CNTRLDn==1'b0)\r
      W_45T_Q <= W_H_POSI;\r
   else\r
      W_45T_Q <= W_45T_Q + 1;\r
end\r
\r
wire   [7:0]W_LRAM_A = W_45T_Q^{8{W_H_FLIP1X}};\r
\r
wire   [4:0]W_LRAM_DI;\r
wire   [4:0]W_LRAM_DO;\r
\r
reg    [1:0]W_RV;\r
reg    [2:0]W_RC;\r
\r
always@(negedge I_CLK_6M)\r
begin\r
      W_RV <= W_LRAM_DO[1:0];    \r
      W_RC <= W_LRAM_DO[4:2];\r
end\r
\r
wire   W_LRAM_AND = ~(~((W_LRAM_A[4]|W_LRAM_A[5])|(W_LRAM_A[6]|W_LRAM_A[7]))|W_256HnX );\r
wire   W_RAW_OR = W_RAW0 | W_RAW1 ;\r
\r
wire   [1:0]W_VID;\r
wire   [2:0]W_COL;\r
\r
assign W_VID[0] = ~(~(W_RAW0&W_RV[1])&W_RV[0]);\r
assign W_VID[1] = ~(~(W_RAW1&W_RV[0])&W_RV[1]);\r
assign W_COL[0] = ~(~(W_RAW_OR&W_CD[0]&W_RC[1]&W_RC[2])&W_RC[0]);\r
assign W_COL[1] = ~(~(W_RAW_OR&W_CD[1]&W_RC[2]&W_RC[0])&W_RC[1]);\r
assign W_COL[2] = ~(~(W_RAW_OR&W_CD[2]&W_RC[0]&W_RC[1])&W_RC[2]);\r
\r
assign O_VID = W_VID;\r
assign O_COL = W_COL;\r
\r
assign W_LRAM_DI[0] = W_LRAM_AND&W_VID[0];\r
assign W_LRAM_DI[1] = W_LRAM_AND&W_VID[1]; \r
assign W_LRAM_DI[2] = W_LRAM_AND&W_COL[0];\r
assign W_LRAM_DI[3] = W_LRAM_AND&W_COL[1];\r
assign W_LRAM_DI[4] = W_LRAM_AND&W_COL[2];\r
\r
mc_lram LRAM(\r
\r
.I_CLK(I_CLK_18M),\r
.I_ADDR(W_LRAM_A),\r
.I_WE(I_CLK_6Mn),\r
.I_D(W_LRAM_DI),\r
.O_Dn(W_LRAM_DO)\r
\r
);\r
\r
mc_missile MISSILE(\r
\r
.I_CLK_18M(I_CLK_18M),\r
.I_CLK_6M(I_CLK_6M),\r
.I_C_BLn_X(W_C_BLnX),\r
.I_MLDn(W_MLDn),\r
.I_SLDn(W_SLDn),\r
.I_HPOS(W_H_POSI),\r
\r
.O_MISSILEn(O_MISSILEn),\r
.O_SHELLn(O_SHELLn)\r
\r
);\r
\r
endmodule\r
\r
\r
Commit	Line	Data
782690d0 MG	1	//===============================================================================\r
	2	// FPGA GALAXIAN VIDEO\r
	3	//\r
	4	// Version : 2.50\r
	5	//\r
	6	// Copyright(c) 2004 Katsumi Degawa , All rights reserved\r
	7	//\r
	8	// Important !\r
	9	//\r
	10	// This program is freeware for non-commercial use. \r
	11	// An author does no guarantee about this program.\r
	12	// You can use this under your own risk.\r
	13	//\r
	14	// 2004- 4-30 galaxian modify by K.DEGAWA\r
	15	// 2004- 5- 6 first release.\r
	16	// 2004- 8-23 Improvement with T80-IP.\r
	17	// 2004- 9-22 The problem which missile didn't sometimes come out from was improved.\r
	18	//================================================================================\r
	19	//-----------------------------------------------------------------------------------------\r
	20	// H_CNT[0],H_CNT[1],H_CNT[2],H_CNT[3],H_CNT[4],H_CNT[5],H_CNT[6],H_CNT[7],H_CNT[8], \r
	21	// 1 H 2 H 4H 8H 16 H 32H 64 H 128 H 256 H\r
	22	//-----------------------------------------------------------------------------------------\r
	23	// V_CNT[0], V_CNT[1], V_CNT[2], V_CNT[3], V_CNT[4], V_CNT[5], V_CNT[6], V_CNT[7] \r
	24	// 1 V 2 V 4 V 8 V 16 V 32 V 64 V 128 V \r
	25	//-----------------------------------------------------------------------------------------\r
	26	\r
	27	module mc_video(\r
	28	\r
	29	I_CLK_18M,\r
	30	I_CLK_12M,\r
	31	I_CLK_6M,\r
4b3ff7d8	32	I_CLK_6Mn,\r
782690d0 MG	33	I_H_CNT,\r
	34	I_V_CNT,\r
	35	I_H_FLIP,\r
	36	I_V_FLIP,\r
	37	I_V_BLn,\r
	38	I_C_BLn,\r
	39	\r
	40	I_A,\r
	41	I_OBJ_SUB_A,\r
	42	I_BD,\r
	43	I_OBJ_RAM_RQn,\r
	44	I_OBJ_RAM_RDn,\r
	45	I_OBJ_RAM_WRn,\r
	46	I_VID_RAM_RDn,\r
	47	I_VID_RAM_WRn,\r
	48	\r
782690d0 MG	49	O_C_BLnX,\r
	50	O_8HF,\r
	51	O_256HnX,\r
	52	O_1VF,\r
	53	O_MISSILEn,\r
	54	O_SHELLn,\r
	55	O_BD,\r
	56	O_VID,\r
	57	O_COL\r
	58	\r
	59	);\r
	60	\r
	61	input I_CLK_18M;\r
	62	input I_CLK_12M;\r
	63	input I_CLK_6M;\r
4b3ff7d8	64	input I_CLK_6Mn;\r
782690d0 MG	65	input [8:0]I_H_CNT;\r
	66	input [7:0]I_V_CNT;\r
	67	input I_H_FLIP;\r
	68	input I_V_FLIP;\r
	69	input I_V_BLn;\r
	70	input I_C_BLn;\r
	71	\r
	72	input [9:0]I_A;\r
	73	input [7:0]I_BD;\r
	74	input [2:0]I_OBJ_SUB_A;\r
	75	input I_OBJ_RAM_RQn;\r
	76	input I_OBJ_RAM_RDn;\r
	77	input I_OBJ_RAM_WRn;\r
	78	input I_VID_RAM_RDn;\r
	79	input I_VID_RAM_WRn;\r
	80	\r
782690d0 MG	81	output O_C_BLnX;\r
	82	output O_8HF;\r
	83	output O_256HnX;\r
	84	output O_1VF;\r
	85	output O_MISSILEn;\r
	86	output O_SHELLn;\r
	87	\r
	88	output [7:0]O_BD;\r
	89	output [1:0]O_VID;\r
	90	output [2:0]O_COL;\r
	91	\r
	92	wire WB_LDn;\r
	93	wire WB_CNTRLDn;\r
	94	wire WB_CNTRCLRn;\r
	95	wire WB_COLLn;\r
	96	wire WB_VPLn;\r
	97	wire WB_OBJDATALn;\r
	98	wire WB_MLDn;\r
	99	wire WB_SLDn;\r
	100	wire W_3D;\r
	101	reg W_LDn;\r
	102	reg W_CNTRLDn;\r
	103	reg W_CNTRCLRn;\r
	104	reg W_COLLn;\r
	105	reg W_VPLn;\r
	106	reg W_OBJDATALn;\r
	107	reg W_MLDn;\r
	108	reg W_SLDn;\r
	109	\r
	110	always@(negedge I_CLK_12M)\r
	111	begin\r
	112	W_LDn <= WB_LDn;\r
	113	W_CNTRLDn <= WB_CNTRLDn;\r
	114	W_CNTRCLRn <= WB_CNTRCLRn;\r
	115	W_COLLn <= WB_COLLn;\r
	116	W_VPLn <= WB_VPLn;\r
	117	W_OBJDATALn <= WB_OBJDATALn;\r
	118	W_MLDn <= WB_MLDn;\r
	119	W_SLDn <= WB_SLDn;\r
	120	end\r
	121	\r
	122	mc_ld_pls LD_PLS(\r
	123	\r
c3bcc38a	124	.I_CLK_6M(I_CLK_6M),\r
782690d0 MG	125	.I_H_CNT(I_H_CNT),\r
	126	.I_3D_DI(W_3D),\r
	127	\r
	128	.O_LDn(WB_LDn),\r
	129	.O_CNTRLDn(WB_CNTRLDn),\r
	130	.O_CNTRCLRn(WB_CNTRCLRn),\r
	131	.O_COLLn(WB_COLLn),\r
	132	.O_VPLn(WB_VPLn),\r
	133	.O_OBJDATALn(WB_OBJDATALn),\r
	134	.O_MLDn(WB_MLDn),\r
	135	.O_SLDn(WB_SLDn)\r
	136	\r
	137	);\r
	138	\r
	139	wire W_H_FLIP1 = ~I_H_CNT[8]&I_H_FLIP;\r
	140	\r
	141	wire [7:3]W_HF_CNT = I_H_CNT[7:3]^{5{W_H_FLIP1}};\r
	142	wire [7:0]W_VF_CNT = I_V_CNT[7:0]^{8{I_V_FLIP}};\r
	143	\r
	144	assign O_8HF = W_HF_CNT[3];\r
b884ab49	145	assign O_1VF = W_VF_CNT[0];\r
782690d0 MG	146	\r
	147	reg [7:0]W_OBJ_D;\r
	148	wire [3:0]W_6J_DA = {I_H_FLIP , W_HF_CNT[7],W_HF_CNT[3],I_H_CNT[2]};\r
	149	wire [3:0]W_6J_DB = {W_OBJ_D[6],W_HF_CNT[3]&I_H_CNT[1], I_H_CNT[2],I_H_CNT[1]};\r
	150	wire [3:0]W_6J_Q = I_H_CNT[8] ? W_6J_DB:W_6J_DA;\r
	151	\r
	152	wire W_H_FLIP2 = W_6J_Q[3];\r
	153	// Prats 4F,5F\r
	154	wire [7:0]W_OBJ_RAM_AB = {1'b0,I_H_CNT[8],W_6J_Q[2],W_HF_CNT[6:4],W_6J_Q[1:0]};\r
	155	wire [7:0]W_OBJ_RAM_A = I_OBJ_RAM_RQn ? W_OBJ_RAM_AB: I_A[7:0] ;\r
	156	\r
	157	wire [7:0]W_OBJ_RAM_DOA,W_OBJ_RAM_DOB;\r
	158	\r
	159	reg [7:0]W_H_POSI;\r
deb5ffdc	160	always@(posedge I_CLK_12M) W_H_POSI <= W_OBJ_RAM_DOB;\r
782690d0 MG	161	\r
	162	mc_obj_ram OBJ_RAM(\r
	163	\r
	164	.I_CLKA(I_CLK_12M),\r
	165	.I_ADDRA(I_A[7:0]),\r
	166	.I_WEA(~I_OBJ_RAM_WRn),\r
	167	.I_CEA(~I_OBJ_RAM_RQn),\r
	168	.I_DA(I_BD),\r
	169	.O_DA(W_OBJ_RAM_DOA),\r
	170	\r
	171	.I_CLKB(I_CLK_12M),\r
	172	.I_ADDRB(W_OBJ_RAM_AB),\r
	173	.I_WEB(1'b0),\r
	174	.I_CEB(1'b1),\r
	175	.I_DB(8'h00),\r
	176	.O_DB(W_OBJ_RAM_DOB)\r
	177	\r
	178	);\r
	179	\r
	180	wire [7:0]W_OBJ_RAM_D = I_OBJ_RAM_RDn ? 8'h00: W_OBJ_RAM_DOA;\r
	181	// Prats 4L\r
	182	always@(posedge W_OBJDATALn) W_OBJ_D <= W_H_POSI; \r
	183	// Prats 4,5N\r
	184	\r
	185	wire [8:0]W_45N_Q = W_VF_CNT[7:0] + W_H_POSI ;\r
	186	assign W_3D = ~(&W_45N_Q[7:0]); \r
	187	\r
	188	reg [7:0]W_2M_Q;\r
	189	always@(posedge W_VPLn or negedge I_V_BLn)\r
	190	begin\r
	191	if(I_V_BLn==1'b0)\r
	192	W_2M_Q <= 0;\r
	193	else\r
	194	W_2M_Q <= W_45N_Q[7:0];\r
	195	end\r
	196	\r
	197	wire W_2N = I_H_CNT[8]&W_OBJ_D[7];\r
	198	wire [3:0]W_1M = W_2M_Q[3:0]^{W_2N,W_2N,W_2N,W_2N};\r
	199	\r
	200	wire W_VID_RAM_CSn = I_VID_RAM_RDn & I_VID_RAM_WRn;\r
	201	\r
	202	wire [7:0]W_VID_RAM_DI = I_VID_RAM_WRn ? 8'h00 : I_BD ;\r
	203	wire [7:0]W_VID_RAM_DOA;\r
	204	\r
	205	wire [11:0]W_VID_RAM_AA = {~(&W_2M_Q[7:4]),W_VID_RAM_CSn, 10'h00 /I_A[9:0]/};\r
	206	wire [11:0]W_VID_RAM_AB = { 1'b0, 1'b0,W_2M_Q[7:4],W_1M[3],W_HF_CNT[7:3]};\r
	207	\r
	208	wire [11:0]W_VID_RAM_A = I_C_BLn ? W_VID_RAM_AB:W_VID_RAM_AA;\r
	209	\r
	210	wire [7:0]W_VID_RAM_D = I_VID_RAM_RDn ? 8'h00 :W_VID_RAM_DOA;\r
	211	\r
	212	wire [7:0]W_VID_RAM_DOB;\r
	213	\r
	214	mc_vid_ram VID_RAM(\r
	215	\r
	216	.I_CLKA(I_CLK_12M),\r
	217	.I_ADDRA(I_A[9:0]),\r
	218	.I_DA(W_VID_RAM_DI),\r
	219	.I_WEA(~I_VID_RAM_WRn),\r
	220	.I_CEA(~W_VID_RAM_CSn),\r
	221	.O_DA(W_VID_RAM_DOA),\r
	222	\r
	223	.I_CLKB(I_CLK_12M),\r
	224	.I_ADDRB(W_VID_RAM_A[9:0]),\r
225	.I_DB(8'h00),\r
226	.I_WEB(1'b0),\r
227	.I_CEB(1'b1),\r
228	.O_DB(W_VID_RAM_DOB)\r
229	\r
230	);\r
231	//-- VIDEO DATA OUTPUT --------------\r
232	assign O_BD = W_OBJ_RAM_D \| W_VID_RAM_D;\r
233	\r
234	wire W_SRLD = ~(W_LDn \| W_VID_RAM_A[11]);\r
235	\r
236	wire [7:0]W_OBJ_ROM_AB = {W_OBJ_D[5:0],W_1M[3],W_OBJ_D[6]^I_H_CNT[3]};\r
237	\r
238	wire [7:0]W_OBJ_ROM_A = I_H_CNT[8] ? W_OBJ_ROM_AB: W_VID_RAM_DOB;\r
239	\r
36a47d3c MG	240	wire [10:0]W_O_OBJ_ROM_A = {W_OBJ_ROM_A,W_1M[2:0]};\r
	241	\r
	242	wire [7:0]W_1K_D;\r
	243	wire [7:0]W_1H_D;\r
	244	\r
	245	//1K VID-Rom\r
	246	GALAXIAN_1K K_ROM(\r
	247	.CLK(I_CLK_12M),\r
	248	.ADDR(W_O_OBJ_ROM_A),\r
	249	.DATA(W_1K_D),\r
	250	.ENA(1'b1)\r
	251	);\r
	252	\r
	253	//1H VID-Rom\r
	254	GALAXIAN_1H H_ROM(\r
	255	.CLK(I_CLK_12M),\r
	256	.ADDR(W_O_OBJ_ROM_A),\r
	257	.DATA(W_1H_D),\r
	258	.ENA(1'b1)\r
	259	);\r
782690d0	260	\r
782690d0 MG	261	\r
	262	//---------------------------------------------------------------------------------\r
	263	wire W_2L_Qa,W_2K_Qd;\r
	264	wire W_2J_Qa,W_2H_Qd;\r
	265	wire W_H_FLIP2X;\r
	266	\r
	267	wire [3:0]W_3L_A = {W_2J_Qa,W_2L_Qa, 1'b1,W_SRLD};\r
	268	wire [3:0]W_3L_B = {W_2H_Qd,W_2K_Qd,W_SRLD, 1'b1}; \r
	269	wire [3:0]W_3L_Y = W_H_FLIP2X ? W_3L_B: W_3L_A; // [3]=RAW1,[2]=RAW0\r
	270	\r
	271	wire W_RAW0 = W_3L_Y[2];\r
	272	wire W_RAW1 = W_3L_Y[3];\r
	273	\r
	274	wire W_SRCLK = I_CLK_6M;\r
	275	//------ PARTS 2KL ---------------------------------------------- \r
	276	wire [1:0]C_2KL = W_3L_Y[1:0];\r
	277	wire [7:0]I_2KL = W_1K_D;\r
	278	reg [7:0]reg_2KL;\r
	279	\r
	280	assign W_2L_Qa = reg_2KL[7];\r
	281	assign W_2K_Qd = reg_2KL[0];\r
	282	always@(posedge W_SRCLK)\r
	283	begin\r
	284	case(C_2KL)\r
	285	2'b00: reg_2KL <= reg_2KL;\r
	286	2'b10: reg_2KL <= {reg_2KL[6:0],1'b0};\r
	287	2'b01: reg_2KL <= {1'b0,reg_2KL[7:1]};\r
	288	2'b11: reg_2KL <= I_2KL;\r
	289	endcase\r
	290	end\r
	291	//------ PARTS 2HJ ---------------------------------------------- \r
	292	wire [1:0]C_2HJ = W_3L_Y[1:0];\r
	293	wire [7:0]I_2HJ = W_1H_D;\r
	294	reg [7:0]reg_2HJ;\r
	295	\r
	296	assign W_2J_Qa = reg_2HJ[7];\r
	297	assign W_2H_Qd = reg_2HJ[0];\r
	298	always@(posedge W_SRCLK)\r
	299	begin\r
	300	case(C_2HJ)\r
	301	2'b00: reg_2HJ <= reg_2HJ;\r
	302	2'b10: reg_2HJ <= {reg_2HJ[6:0],1'b0};\r
	303	2'b01: reg_2HJ <= {1'b0,reg_2HJ[7:1]};\r
	304	2'b11: reg_2HJ <= I_2HJ;\r
	305	endcase\r
	306	end\r
	307	\r
	308	//----- SHT2 -----------------------------------------------------\r
	309	// Prats 6K\r
	310	reg [2:0]W_6K_Q;\r
	311	always@(posedge W_COLLn) W_6K_Q <= W_H_POSI[2:0];\r
	312	\r
	313	// Prats 6P\r
	314	reg [6:0]W_6P_Q;\r
	315	always@(posedge I_CLK_6M)\r
	316	begin\r
	317	if(W_LDn==1'b0) W_6P_Q <= {W_H_FLIP2,W_H_FLIP1,I_C_BLn,~I_H_CNT[8],W_6K_Q[2:0]};\r
	318	else W_6P_Q <= W_6P_Q;\r
	319	end\r
	320	\r
	321	assign W_H_FLIP2X = W_6P_Q[6];\r
	322	wire W_H_FLIP1X = W_6P_Q[5];\r
	323	wire W_C_BLnX = W_6P_Q[4];\r
	324	wire W_256HnX = W_6P_Q[3];\r
325	wire [2:0]W_CD = W_6P_Q[2:0];\r
326	\r
327	assign O_256HnX = W_256HnX;\r
328	assign O_C_BLnX = W_C_BLnX;\r
329	\r
330	wire W_45T_CLR = W_CNTRCLRn \| W_256HnX ;\r
331	reg [7:0]W_45T_Q;\r
332	\r
333	always@(posedge I_CLK_6M)\r
334	begin\r
335	if(W_45T_CLR==1'b0)\r
336	W_45T_Q <= 0;\r
337	else if(W_CNTRLDn==1'b0)\r
338	W_45T_Q <= W_H_POSI;\r
339	else\r
340	W_45T_Q <= W_45T_Q + 1;\r
341	end\r
342	\r
343	wire [7:0]W_LRAM_A = W_45T_Q^{8{W_H_FLIP1X}};\r
782690d0 MG	344	\r
	345	wire [4:0]W_LRAM_DI;\r
	346	wire [4:0]W_LRAM_DO;\r
	347	\r
	348	reg [1:0]W_RV;\r
	349	reg [2:0]W_RC;\r
782690d0	350	\r
c3bcc38a	351	always@(negedge I_CLK_6M)\r
782690d0 MG	352	begin\r
	353	W_RV <= W_LRAM_DO[1:0]; \r
	354	W_RC <= W_LRAM_DO[4:2];\r
	355	end\r
	356	\r
	357	wire W_LRAM_AND = ~(~((W_LRAM_A[4]\|W_LRAM_A[5])\|(W_LRAM_A[6]\|W_LRAM_A[7]))\|W_256HnX );\r
	358	wire W_RAW_OR = W_RAW0 \| W_RAW1 ;\r
	359	\r
	360	wire [1:0]W_VID;\r
	361	wire [2:0]W_COL;\r
	362	\r
	363	assign W_VID[0] = ~(~(W_RAW0&W_RV[1])&W_RV[0]);\r
	364	assign W_VID[1] = ~(~(W_RAW1&W_RV[0])&W_RV[1]);\r
	365	assign W_COL[0] = ~(~(W_RAW_OR&W_CD[0]&W_RC[1]&W_RC[2])&W_RC[0]);\r
	366	assign W_COL[1] = ~(~(W_RAW_OR&W_CD[1]&W_RC[2]&W_RC[0])&W_RC[1]);\r
	367	assign W_COL[2] = ~(~(W_RAW_OR&W_CD[2]&W_RC[0]&W_RC[1])&W_RC[2]);\r
	368	\r
	369	assign O_VID = W_VID;\r
	370	assign O_COL = W_COL;\r
	371	\r
	372	assign W_LRAM_DI[0] = W_LRAM_AND&W_VID[0];\r
	373	assign W_LRAM_DI[1] = W_LRAM_AND&W_VID[1]; \r
	374	assign W_LRAM_DI[2] = W_LRAM_AND&W_COL[0];\r
	375	assign W_LRAM_DI[3] = W_LRAM_AND&W_COL[1];\r
	376	assign W_LRAM_DI[4] = W_LRAM_AND&W_COL[2];\r
	377	\r
	378	mc_lram LRAM(\r
	379	\r
	380	.I_CLK(I_CLK_18M),\r
	381	.I_ADDR(W_LRAM_A),\r
4b3ff7d8	382	.I_WE(I_CLK_6Mn),\r
782690d0 MG	383	.I_D(W_LRAM_DI),\r
	384	.O_Dn(W_LRAM_DO)\r
	385	\r
	386	);\r
	387	\r
	388	mc_missile MISSILE(\r
	389	\r
	390	.I_CLK_18M(I_CLK_18M),\r
	391	.I_CLK_6M(I_CLK_6M),\r
	392	.I_C_BLn_X(W_C_BLnX),\r
	393	.I_MLDn(W_MLDn),\r
	394	.I_SLDn(W_SLDn),\r
	395	.I_HPOS(W_H_POSI),\r
	396	\r
	397	.O_MISSILEn(O_MISSILEn),\r
	398	.O_SHELLn(O_SHELLn)\r
	399	\r
	400	);\r
	401	\r
	402	endmodule\r
	403	\r
	404	\r