cvs.zerfleddert.de Git - fpga-games/blame_incremental - 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_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  [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
wire   W_LRAM_WE = ~I_CLK_6M;\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
wire   W_1U_CLK = ~I_CLK_6M;\r
\r
always@(posedge W_1U_CLK)\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(W_LRAM_WE),\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
	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
	32	I_H_CNT,\r
	33	I_V_CNT,\r
	34	I_H_FLIP,\r
	35	I_V_FLIP,\r
	36	I_V_BLn,\r
	37	I_C_BLn,\r
	38	\r
	39	I_A,\r
	40	I_OBJ_SUB_A,\r
	41	I_BD,\r
	42	I_OBJ_RAM_RQn,\r
	43	I_OBJ_RAM_RDn,\r
	44	I_OBJ_RAM_WRn,\r
	45	I_VID_RAM_RDn,\r
	46	I_VID_RAM_WRn,\r
	47	\r
	48	O_C_BLnX,\r
	49	O_8HF,\r
	50	O_256HnX,\r
	51	O_1VF,\r
	52	O_MISSILEn,\r
	53	O_SHELLn,\r
	54	O_BD,\r
	55	O_VID,\r
	56	O_COL\r
	57	\r
	58	);\r
	59	\r
	60	input I_CLK_18M;\r
	61	input I_CLK_12M;\r
	62	input I_CLK_6M;\r
	63	input [8:0]I_H_CNT;\r
	64	input [7:0]I_V_CNT;\r
	65	input I_H_FLIP;\r
	66	input I_V_FLIP;\r
	67	input I_V_BLn;\r
	68	input I_C_BLn;\r
	69	\r
	70	input [9:0]I_A;\r
	71	input [7:0]I_BD;\r
	72	input [2:0]I_OBJ_SUB_A;\r
	73	input I_OBJ_RAM_RQn;\r
	74	input I_OBJ_RAM_RDn;\r
	75	input I_OBJ_RAM_WRn;\r
	76	input I_VID_RAM_RDn;\r
	77	input I_VID_RAM_WRn;\r
	78	\r
	79	output O_C_BLnX;\r
	80	output O_8HF;\r
	81	output O_256HnX;\r
	82	output O_1VF;\r
	83	output O_MISSILEn;\r
	84	output O_SHELLn;\r
	85	\r
	86	output [7:0]O_BD;\r
	87	output [1:0]O_VID;\r
	88	output [2:0]O_COL;\r
	89	\r
	90	wire WB_LDn;\r
	91	wire WB_CNTRLDn;\r
	92	wire WB_CNTRCLRn;\r
	93	wire WB_COLLn;\r
	94	wire WB_VPLn;\r
	95	wire WB_OBJDATALn;\r
	96	wire WB_MLDn;\r
	97	wire WB_SLDn;\r
	98	wire W_3D;\r
	99	reg W_LDn;\r
	100	reg W_CNTRLDn;\r
	101	reg W_CNTRCLRn;\r
	102	reg W_COLLn;\r
	103	reg W_VPLn;\r
	104	reg W_OBJDATALn;\r
	105	reg W_MLDn;\r
	106	reg W_SLDn;\r
	107	\r
	108	always@(negedge I_CLK_12M)\r
	109	begin\r
	110	W_LDn <= WB_LDn;\r
	111	W_CNTRLDn <= WB_CNTRLDn;\r
	112	W_CNTRCLRn <= WB_CNTRCLRn;\r
	113	W_COLLn <= WB_COLLn;\r
	114	W_VPLn <= WB_VPLn;\r
	115	W_OBJDATALn <= WB_OBJDATALn;\r
	116	W_MLDn <= WB_MLDn;\r
	117	W_SLDn <= WB_SLDn;\r
	118	end\r
	119	\r
	120	mc_ld_pls LD_PLS(\r
	121	\r
	122	.I_CLK_6M(~I_CLK_6M),\r
	123	.I_H_CNT(I_H_CNT),\r
	124	.I_3D_DI(W_3D),\r
	125	\r
	126	.O_LDn(WB_LDn),\r
	127	.O_CNTRLDn(WB_CNTRLDn),\r
	128	.O_CNTRCLRn(WB_CNTRCLRn),\r
	129	.O_COLLn(WB_COLLn),\r
	130	.O_VPLn(WB_VPLn),\r
	131	.O_OBJDATALn(WB_OBJDATALn),\r
	132	.O_MLDn(WB_MLDn),\r
	133	.O_SLDn(WB_SLDn)\r
	134	\r
	135	);\r
	136	\r
	137	wire W_H_FLIP1 = ~I_H_CNT[8]&I_H_FLIP;\r
	138	\r
	139	wire [7:3]W_HF_CNT = I_H_CNT[7:3]^{5{W_H_FLIP1}};\r
	140	wire [7:0]W_VF_CNT = I_V_CNT[7:0]^{8{I_V_FLIP}};\r
	141	\r
	142	assign O_8HF = W_HF_CNT[3];\r
	143	assign O_1VF = W_VF_CNT[0];\r
	144	\r
	145	reg [7:0]W_OBJ_D;\r
	146	wire [3:0]W_6J_DA = {I_H_FLIP , W_HF_CNT[7],W_HF_CNT[3],I_H_CNT[2]};\r
	147	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
	148	wire [3:0]W_6J_Q = I_H_CNT[8] ? W_6J_DB:W_6J_DA;\r
	149	\r
	150	wire W_H_FLIP2 = W_6J_Q[3];\r
	151	// Prats 4F,5F\r
	152	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
	153	wire [7:0]W_OBJ_RAM_A = I_OBJ_RAM_RQn ? W_OBJ_RAM_AB: I_A[7:0] ;\r
	154	\r
	155	wire [7:0]W_OBJ_RAM_DOA,W_OBJ_RAM_DOB;\r
	156	\r
	157	reg [7:0]W_H_POSI;\r
	158	always@(posedge I_CLK_12M) W_H_POSI <= W_OBJ_RAM_DOB;\r
	159	\r
	160	mc_obj_ram OBJ_RAM(\r
	161	\r
	162	.I_CLKA(I_CLK_12M),\r
	163	.I_ADDRA(I_A[7:0]),\r
	164	.I_WEA(~I_OBJ_RAM_WRn),\r
	165	.I_CEA(~I_OBJ_RAM_RQn),\r
	166	.I_DA(I_BD),\r
	167	.O_DA(W_OBJ_RAM_DOA),\r
	168	\r
	169	.I_CLKB(I_CLK_12M),\r
	170	.I_ADDRB(W_OBJ_RAM_AB),\r
	171	.I_WEB(1'b0),\r
	172	.I_CEB(1'b1),\r
	173	.I_DB(8'h00),\r
	174	.O_DB(W_OBJ_RAM_DOB)\r
	175	\r
	176	);\r
	177	\r
	178	wire [7:0]W_OBJ_RAM_D = I_OBJ_RAM_RDn ? 8'h00: W_OBJ_RAM_DOA;\r
	179	// Prats 4L\r
	180	always@(posedge W_OBJDATALn) W_OBJ_D <= W_H_POSI; \r
	181	// Prats 4,5N\r
	182	\r
	183	wire [8:0]W_45N_Q = W_VF_CNT[7:0] + W_H_POSI ;\r
	184	assign W_3D = ~(&W_45N_Q[7:0]); \r
	185	\r
	186	reg [7:0]W_2M_Q;\r
	187	always@(posedge W_VPLn or negedge I_V_BLn)\r
	188	begin\r
	189	if(I_V_BLn==1'b0)\r
	190	W_2M_Q <= 0;\r
	191	else\r
	192	W_2M_Q <= W_45N_Q[7:0];\r
	193	end\r
	194	\r
	195	wire W_2N = I_H_CNT[8]&W_OBJ_D[7];\r
	196	wire [3:0]W_1M = W_2M_Q[3:0]^{W_2N,W_2N,W_2N,W_2N};\r
	197	\r
	198	wire W_VID_RAM_CSn = I_VID_RAM_RDn & I_VID_RAM_WRn;\r
	199	\r
	200	wire [7:0]W_VID_RAM_DI = I_VID_RAM_WRn ? 8'h00 : I_BD ;\r
	201	wire [7:0]W_VID_RAM_DOA;\r
	202	\r
	203	wire [11:0]W_VID_RAM_AA = {~(&W_2M_Q[7:4]),W_VID_RAM_CSn, 10'h00 /I_A[9:0]/};\r
	204	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
	205	\r
	206	wire [11:0]W_VID_RAM_A = I_C_BLn ? W_VID_RAM_AB:W_VID_RAM_AA;\r
	207	\r
	208	wire [7:0]W_VID_RAM_D = I_VID_RAM_RDn ? 8'h00 :W_VID_RAM_DOA;\r
	209	\r
	210	wire [7:0]W_VID_RAM_DOB;\r
	211	\r
	212	mc_vid_ram VID_RAM(\r
	213	\r
	214	.I_CLKA(I_CLK_12M),\r
	215	.I_ADDRA(I_A[9:0]),\r
	216	.I_DA(W_VID_RAM_DI),\r
	217	.I_WEA(~I_VID_RAM_WRn),\r
	218	.I_CEA(~W_VID_RAM_CSn),\r
	219	.O_DA(W_VID_RAM_DOA),\r
	220	\r
	221	.I_CLKB(I_CLK_12M),\r
	222	.I_ADDRB(W_VID_RAM_A[9:0]),\r
	223	.I_DB(8'h00),\r
	224	.I_WEB(1'b0),\r
	225	.I_CEB(1'b1),\r
	226	.O_DB(W_VID_RAM_DOB)\r
	227	\r
	228	);\r
	229	//-- VIDEO DATA OUTPUT --------------\r
	230	assign O_BD = W_OBJ_RAM_D \| W_VID_RAM_D;\r
	231	\r
	232	wire W_SRLD = ~(W_LDn \| W_VID_RAM_A[11]);\r
	233	\r
	234	wire [7:0]W_OBJ_ROM_AB = {W_OBJ_D[5:0],W_1M[3],W_OBJ_D[6]^I_H_CNT[3]};\r
	235	\r
	236	wire [7:0]W_OBJ_ROM_A = I_H_CNT[8] ? W_OBJ_ROM_AB: W_VID_RAM_DOB;\r
	237	\r
	238	wire [10:0]W_O_OBJ_ROM_A = {W_OBJ_ROM_A,W_1M[2:0]};\r
	239	\r
	240	wire [7:0]W_1K_D;\r
	241	wire [7:0]W_1H_D;\r
	242	\r
	243	//1K VID-Rom\r
	244	GALAXIAN_1K K_ROM(\r
	245	.CLK(I_CLK_12M),\r
	246	.ADDR(W_O_OBJ_ROM_A),\r
	247	.DATA(W_1K_D),\r
	248	.ENA(1'b1)\r
	249	);\r
	250	\r
	251	//1H VID-Rom\r
	252	GALAXIAN_1H H_ROM(\r
	253	.CLK(I_CLK_12M),\r
	254	.ADDR(W_O_OBJ_ROM_A),\r
	255	.DATA(W_1H_D),\r
	256	.ENA(1'b1)\r
	257	);\r
	258	\r
	259	\r
	260	//---------------------------------------------------------------------------------\r
	261	wire W_2L_Qa,W_2K_Qd;\r
	262	wire W_2J_Qa,W_2H_Qd;\r
	263	wire W_H_FLIP2X;\r
	264	\r
	265	wire [3:0]W_3L_A = {W_2J_Qa,W_2L_Qa, 1'b1,W_SRLD};\r
	266	wire [3:0]W_3L_B = {W_2H_Qd,W_2K_Qd,W_SRLD, 1'b1}; \r
	267	wire [3:0]W_3L_Y = W_H_FLIP2X ? W_3L_B: W_3L_A; // [3]=RAW1,[2]=RAW0\r
	268	\r
	269	wire W_RAW0 = W_3L_Y[2];\r
	270	wire W_RAW1 = W_3L_Y[3];\r
	271	\r
	272	wire W_SRCLK = I_CLK_6M;\r
	273	//------ PARTS 2KL ---------------------------------------------- \r
	274	wire [1:0]C_2KL = W_3L_Y[1:0];\r
	275	wire [7:0]I_2KL = W_1K_D;\r
	276	reg [7:0]reg_2KL;\r
	277	\r
	278	assign W_2L_Qa = reg_2KL[7];\r
	279	assign W_2K_Qd = reg_2KL[0];\r
	280	always@(posedge W_SRCLK)\r
	281	begin\r
	282	case(C_2KL)\r
	283	2'b00: reg_2KL <= reg_2KL;\r
	284	2'b10: reg_2KL <= {reg_2KL[6:0],1'b0};\r
	285	2'b01: reg_2KL <= {1'b0,reg_2KL[7:1]};\r
	286	2'b11: reg_2KL <= I_2KL;\r
	287	endcase\r
	288	end\r
	289	//------ PARTS 2HJ ---------------------------------------------- \r
	290	wire [1:0]C_2HJ = W_3L_Y[1:0];\r
	291	wire [7:0]I_2HJ = W_1H_D;\r
	292	reg [7:0]reg_2HJ;\r
	293	\r
	294	assign W_2J_Qa = reg_2HJ[7];\r
	295	assign W_2H_Qd = reg_2HJ[0];\r
	296	always@(posedge W_SRCLK)\r
	297	begin\r
	298	case(C_2HJ)\r
	299	2'b00: reg_2HJ <= reg_2HJ;\r
	300	2'b10: reg_2HJ <= {reg_2HJ[6:0],1'b0};\r
	301	2'b01: reg_2HJ <= {1'b0,reg_2HJ[7:1]};\r
	302	2'b11: reg_2HJ <= I_2HJ;\r
	303	endcase\r
	304	end\r
	305	\r
	306	//----- SHT2 -----------------------------------------------------\r
	307	// Prats 6K\r
	308	reg [2:0]W_6K_Q;\r
	309	always@(posedge W_COLLn) W_6K_Q <= W_H_POSI[2:0];\r
	310	\r
	311	// Prats 6P\r
	312	reg [6:0]W_6P_Q;\r
	313	always@(posedge I_CLK_6M)\r
	314	begin\r
	315	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
	316	else W_6P_Q <= W_6P_Q;\r
	317	end\r
	318	\r
	319	assign W_H_FLIP2X = W_6P_Q[6];\r
	320	wire W_H_FLIP1X = W_6P_Q[5];\r
	321	wire W_C_BLnX = W_6P_Q[4];\r
	322	wire W_256HnX = W_6P_Q[3];\r
	323	wire [2:0]W_CD = W_6P_Q[2:0];\r
	324	\r
	325	assign O_256HnX = W_256HnX;\r
	326	assign O_C_BLnX = W_C_BLnX;\r
	327	\r
	328	wire W_45T_CLR = W_CNTRCLRn \| W_256HnX ;\r
	329	reg [7:0]W_45T_Q;\r
	330	\r
	331	always@(posedge I_CLK_6M)\r
	332	begin\r
	333	if(W_45T_CLR==1'b0)\r
	334	W_45T_Q <= 0;\r
	335	else if(W_CNTRLDn==1'b0)\r
	336	W_45T_Q <= W_H_POSI;\r
	337	else\r
	338	W_45T_Q <= W_45T_Q + 1;\r
	339	end\r
	340	\r
	341	wire [7:0]W_LRAM_A = W_45T_Q^{8{W_H_FLIP1X}};\r
	342	wire W_LRAM_WE = ~I_CLK_6M;\r
	343	\r
	344	wire [4:0]W_LRAM_DI;\r
	345	wire [4:0]W_LRAM_DO;\r
	346	\r
	347	reg [1:0]W_RV;\r
	348	reg [2:0]W_RC;\r
	349	wire W_1U_CLK = ~I_CLK_6M;\r
	350	\r
	351	always@(posedge W_1U_CLK)\r
	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
	382	.I_WE(W_LRAM_WE),\r
	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