Tweaks for direct video.

This commit is contained in:
sorgelig
2019-09-28 03:01:36 +08:00
parent 7ef2a9c96f
commit 03191e0be9

View File

@ -279,7 +279,7 @@ hps_io #(.STRLEN($size(CONF_STR)>>3)) hps_io
//////////////////// MAIN ////////////////////// //////////////////// MAIN //////////////////////
wire [7:0] R,G,B; wire [7:0] R,G,B;
wire HBlank,VBlank; wire HBlank,VBlank;
wire VSync, HSync; wire VS, HS;
wire ce_vid; wire ce_vid;
wire reset; wire reset;
@ -303,8 +303,8 @@ tsconf tsconf
.VGA_R(R), .VGA_R(R),
.VGA_G(G), .VGA_G(G),
.VGA_B(B), .VGA_B(B),
.VGA_HS(HSync), .VGA_HS(HS),
.VGA_VS(VSync), .VGA_VS(VS),
.VGA_HBLANK(HBlank), .VGA_HBLANK(HBlank),
.VGA_VBLANK(VBlank), .VGA_VBLANK(VBlank),
.VGA_CEPIX(ce_vid), .VGA_CEPIX(ce_vid),
@ -383,6 +383,13 @@ end
assign CLK_VIDEO = clk_vid; assign CLK_VIDEO = clk_vid;
reg VSync, HSync;
always @(posedge CLK_VIDEO) begin
HSync <= HS;
if(~HSync & HS) VSync <= VS;
end
wire [1:0] scale = status[2:1]; wire [1:0] scale = status[2:1];
assign VGA_SL = {scale == 3, scale == 2}; assign VGA_SL = {scale == 3, scale == 2};