Revision 434
Added by markw over 9 years ago
mcc216/atari800core_mcc.vhd | ||
---|---|---|
|
||
signal half_scandouble_enable_reg : std_logic;
|
||
signal half_scandouble_enable_next : std_logic;
|
||
signal scanlines_reg : std_logic;
|
||
signal scanlines_next : std_logic;
|
||
|
||
function palette_from_scandouble( scandouble : integer ) return integer is
|
||
begin
|
||
... | ... | |
end process;
|
||
|
||
paddle_mode_next <= paddle_mode_reg xor (not(ps2_keys(16#11F#)) and ps2_keys_next(16#11F#)); -- left windows key
|
||
scanlines_next <= scanlines_reg xor (not(ps2_keys(16#11#)) and ps2_keys_next(16#11#)); -- left alt
|
||
|
||
return_to_boot_menu : entity work.delayed_reconfig
|
||
PORT MAP
|
||
... | ... | |
begin
|
||
if (sdram_reset_n_reg='0') then
|
||
half_scandouble_enable_reg <= '0';
|
||
scanlines_reg <= '0';
|
||
elsif (scandouble_clk'event and scandouble_clk='1') then
|
||
half_scandouble_enable_reg <= half_scandouble_enable_next;
|
||
scanlines_reg <= scanlines_next;
|
||
end if;
|
||
end process;
|
||
|
||
... | ... | |
|
||
colour_enable => half_scandouble_enable_reg,
|
||
doubled_enable => '1',
|
||
scanlines_on => scanlines_reg,
|
||
|
||
-- GTIA interface
|
||
pal => PAL,
|
mcc216_5200/atari5200core_mcc.vhd | ||
---|---|---|
|
||
signal half_scandouble_enable_reg : std_logic;
|
||
signal half_scandouble_enable_next : std_logic;
|
||
signal scanlines_reg : std_logic;
|
||
signal scanlines_next : std_logic;
|
||
|
||
function palette_from_scandouble( scandouble : integer ) return integer is
|
||
begin
|
||
... | ... | |
end generate;
|
||
|
||
gen_scandouble_on: if scandouble=1 generate
|
||
scanlines_next <= scanlines_reg xor (not(ps2_keys(16#11#)) and ps2_keys_next(16#11#)); -- left alt
|
||
process(scandouble_clk,sdram_reset_n_reg)
|
||
begin
|
||
if (sdram_reset_n_reg='0') then
|
||
half_scandouble_enable_reg <= '0';
|
||
scanlines_reg <= '0';
|
||
elsif (scandouble_clk'event and scandouble_clk='1') then
|
||
half_scandouble_enable_reg <= half_scandouble_enable_next;
|
||
scanlines_reg <= scanlines_next;
|
||
end if;
|
||
end process;
|
||
|
||
... | ... | |
|
||
colour_enable => half_scandouble_enable_reg,
|
||
doubled_enable => '1',
|
||
scanlines_on => scanlines_reg,
|
||
|
||
-- GTIA interface
|
||
pal => '0',
|
Also available in: Unified diff
Added support for fake scanlines