blob: 7b1703e88a2dff8eb48da7999e457ecf84d4055b (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
|
----------------------------------------------------------------------------------
-- Company:
-- Engineer:
--
-- Create Date: 22.02.2023 13:13:03
-- Design Name:
-- Module Name: ppu_vga_tiny - Behavioral
-- Project Name:
-- Target Devices:
-- Tool Versions:
-- Description:
--
-- Dependencies:
--
-- Revision:
-- Revision 0.01 - File Created
-- Additional Comments:
--
----------------------------------------------------------------------------------
library IEEE;
use IEEE.STD_LOGIC_1164.ALL;
use work.ppu_consts.all;
use IEEE.NUMERIC_STD.ALL;
use IEEE.STD_LOGIC_UNSIGNED.ALL;
-- Uncomment the following library declaration if instantiating
-- any Xilinx leaf cells in this code.
--library UNISIM;
--use UNISIM.VComponents.all;
entity ppu_vga_tiny is
Port (
CLK: in std_logic; -- system clock
RESET: in std_logic;
X: out std_logic_vector(PPU_POS_H_WIDTH-1 downto 0); -- current screen pixel x
Y: out std_logic_vector(PPU_POS_V_WIDTH-1 downto 0); -- current screen pixel y
VSYNC, VBLANK,
HSYNC, HBLANK: out std_logic); -- VGA sync outputs
end ppu_vga_tiny;
architecture Behavioral of ppu_vga_tiny is
signal hcount: STD_LOGIC_VECTOR(PPU_POS_H_WIDTH-1 downto 0):= (others => '0');
signal vcount: STD_LOGIC_VECTOR(PPU_POS_V_WIDTH-1 downto 0):= (others => '0');
signal CLKcounter: STD_LOGIC_VECTOR(4 downto 0):= (others => '0');
begin
process (CLK)
begin
if rising_edge(CLK) then
CLKcounter <= CLKcounter + 1;
if(CLKcounter > 15) then
-- x,y data uit
X <= hcount;
Y <= vcount;
--pulse width
if hcount < 32 or hcount >= 320-80 then
hsync <= '0';
else
hsync <= '1';
end if;
if vcount < 8 or vcount >= 240-15 then
vsync <= '0';
else
vsync <= '1';
end if;
-- Hblank and Vblank outputs
if hcount >= 320-80 then
hblank <= '1';
else
hblank <= '0';
end if;
if vcount >= 240-15 then
vblank <= '1';
else
vblank <= '0';
end if;
-- sync pulse time
hcount <= hcount + 1;
if hcount = 400 then
vcount <= vcount + 1;
hcount <= (others => '0');
end if;
if vcount = 255 then
vcount <= (others => '0');
end if;
end if;
end if;
end process;
end Behavioral;
|