Project

General

Profile

Download (38 KB) Statistics
| Revision:

repo2/chameleon/atari800core_chameleon.vhd

115 markw
---------------------------------------------------------------------------
-- (c) 2014 mark watson
-- I am happy for anyone to use this for non-commercial use.
-- If my vhdl files are used commercially or otherwise sold,
-- please contact me for explicit permission at scrameta (gmail).
-- This applies for source and binary form and derived works.
---------------------------------------------------------------------------

LIBRARY ieee;
USE ieee.std_logic_1164.all;
use ieee.numeric_std.all;
145 markw
use IEEE.STD_LOGIC_MISC.all;
115 markw
LIBRARY work;

entity atari800core_chameleon is
124 markw
GENERIC
(
887 markw
TV : integer -- 1 = PAL, 0=NTSC
124 markw
);
115 markw
port
(
-- VGA
red : OUT STD_LOGIC_VECTOR(4 downto 0);
grn : OUT STD_LOGIC_VECTOR(4 downto 0);
blu : OUT STD_LOGIC_VECTOR(4 downto 0);
nHSync: OUT STD_LOGIC;
nVSync: OUT STD_LOGIC;

-- SDRAM
sd_clk : OUT STD_LOGIC;
sd_addr : OUT STD_LOGIC_VECTOR(12 downto 0);
sd_ba_0 : OUT STD_LOGIC;
sd_ba_1 : OUT STD_LOGIC;
sd_we_n : OUT STD_LOGIC;
sd_ras_n : OUT STD_LOGIC;
sd_cas_n : OUT STD_LOGIC;
sd_data :INOUT STD_LOGIC_VECTOR(15 downto 0);
sd_ldqm : OUT STD_LOGIC;
sd_udqm : OUT STD_LOGIC;

-- Clocks
clk8 : in std_logic;
phi2_n : in std_logic;
dotclock_n : in std_logic;

-- Bus
romlh_n : in std_logic;
ioef_n : in std_logic;

-- Buttons
freeze_n : in std_logic;

-- MMC/SPI
spi_miso : in std_logic;
mmc_cd_n : in std_logic;
mmc_wp : in std_logic;
-- mosi is on the MUX...

-- MUX CPLD
mux_clk : out std_logic;
mux : out unsigned(3 downto 0);
mux_d : out unsigned(3 downto 0);
mux_q : in unsigned(3 downto 0);

-- USART
usart_tx : in std_logic;
usart_clk : in std_logic;
usart_rts : in std_logic;
usart_cts : in std_logic;

-- Audio
sigmaL : out std_logic;
sigmaR : out std_logic
);
end atari800core_chameleon;

architecture vhdl of atari800core_chameleon is

component hq_dac
port (
reset :in std_logic;
clk :in std_logic;
clk_ena : in std_logic;
pcm_in : in std_logic_vector(19 downto 0);
dac_out : out std_logic
);
end component;

signal AUDIO_L_RAW : std_logic_vector(15 downto 0);
signal AUDIO_R_RAW : std_logic_vector(15 downto 0);

signal VGA_VS_RAW : std_logic;
signal VGA_HS_RAW : std_logic;
346 markw
signal VGA_CS_RAW : std_logic;
115 markw
140 markw
--signal RESET_n : std_logic;
signal reset_counter : unsigned(15 downto 0):=X"0000";
signal reset_n : std_logic := '1';
115 markw
signal PLL_LOCKED : std_logic;
signal CLK : std_logic;
120 markw
signal CLK_SDRAM : std_logic;
115 markw
175 markw
signal CLK_PLL1 : std_logic; -- cascaded to get better clock
signal PLL1_LOCKED : std_logic;
120 markw
-- SDRAM
signal SDRAM_REQUEST : std_logic;
signal SDRAM_REQUEST_COMPLETE : std_logic;
signal SDRAM_READ_ENABLE : STD_LOGIC;
signal SDRAM_WRITE_ENABLE : std_logic;
signal SDRAM_ADDR : STD_LOGIC_VECTOR(22 DOWNTO 0);
signal SDRAM_DO : STD_LOGIC_VECTOR(31 DOWNTO 0);
signal SDRAM_DI : STD_LOGIC_VECTOR(31 DOWNTO 0);
signal SDRAM_WIDTH_8bit_ACCESS : std_logic;
signal SDRAM_WIDTH_16bit_ACCESS : std_logic;
signal SDRAM_WIDTH_32bit_ACCESS : std_logic;

signal SDRAM_REFRESH : std_logic;

signal SDRAM_RESET_N : std_logic;


115 markw
-- MUX
126 markw
-- signal mux_clk_reg : std_logic := '0';
-- signal mux_reg : unsigned(3 downto 0) := (others => '1');
-- signal mux_d_reg : unsigned(3 downto 0) := (others => '1');
115 markw
126 markw
-- reset from chameleon
148 markw
signal chameleon_reset_n_next : std_logic_vector(6 downto 0);
signal chameleon_reset_n_reg : std_logic_vector(6 downto 0);
145 markw
signal reset_short_next : std_logic;
signal reset_short_reg : std_logic;
signal reset_long_next : std_logic;
signal reset_long_reg : std_logic;
signal reconfig_next : std_logic;
signal reconfig_reg : std_logic;
126 markw
115 markw
-- LEDs
126 markw
-- signal led_green : std_logic;
-- signal led_red : std_logic;
115 markw
-- clocks...
145 markw
signal ena_1mhz : std_logic; --fast clk
115 markw
signal ena_1khz : std_logic;
145 markw
126 markw
--signal phi2 : std_logic;
115 markw
signal no_clock : std_logic;

145 markw
signal ena_10khz : std_logic; --slow clk
signal ena_10hz : std_logic;

115 markw
-- Docking station
signal docking_station : std_logic;
134 markw
--signal docking_ena : std_logic;
--signal docking_irq : std_logic;
--signal irq_n : std_logic;
115 markw
151 markw
signal docking_joystick1_next : unsigned(5 downto 0);
signal docking_joystick2_next : unsigned(5 downto 0);
signal docking_joystick3_next : unsigned(5 downto 0);
signal docking_joystick4_next : unsigned(5 downto 0);
signal c64_keys_next : unsigned(63 downto 0);
signal docking_joystick1_reg : unsigned(5 downto 0);
signal docking_joystick2_reg : unsigned(5 downto 0);
signal docking_joystick3_reg : unsigned(5 downto 0);
signal docking_joystick4_reg : unsigned(5 downto 0);
signal c64_keys_reg : unsigned(63 downto 0);
-- 0 = col0, row0
-- 1 = col1, row0
-- 8 = col0, row1
-- 63 = col7, row7
-- low is pressed
115 markw
126 markw
-- IR remote
signal ir_joya : unsigned(5 downto 0);
signal ir_joyb : unsigned(5 downto 0);
signal ir : std_logic;
887 markw
signal ir_escape : std_logic;
126 markw
signal ir_start : std_logic;
signal ir_select : std_logic;
signal ir_option : std_logic;
134 markw
signal ir_fkeys_next : std_logic_vector(11 downto 0);
signal ir_fkeys_reg : std_logic_vector(11 downto 0);
126 markw
115 markw
-- PS/2 Keyboard
signal ps2_keyboard_clk_in : std_logic;
signal ps2_keyboard_dat_in : std_logic;
--signal ps2_keyboard_clk_out : std_logic;
--signal ps2_keyboard_dat_out : std_logic;

120 markw
SIGNAL KEYBOARD_RESPONSE : STD_LOGIC_VECTOR(1 DOWNTO 0);
SIGNAL KEYBOARD_SCAN : STD_LOGIC_VECTOR(5 DOWNTO 0);
SIGNAL CONSOL_OPTION : STD_LOGIC;
SIGNAL CONSOL_SELECT : STD_LOGIC;
SIGNAL CONSOL_START : STD_LOGIC;
SIGNAL FKEYS : std_logic_vector(11 downto 0);

121 markw
-- dma/virtual drive
signal DMA_ADDR_FETCH : std_logic_vector(23 downto 0);
signal DMA_WRITE_DATA : std_logic_vector(31 downto 0);
signal DMA_FETCH : std_logic;
signal DMA_32BIT_WRITE_ENABLE : std_logic;
signal DMA_16BIT_WRITE_ENABLE : std_logic;
signal DMA_8BIT_WRITE_ENABLE : std_logic;
signal DMA_READ_ENABLE : std_logic;
signal DMA_MEMORY_READY : std_logic;
signal DMA_MEMORY_DATA : std_logic_vector(31 downto 0);

signal ZPU_ADDR_ROM : std_logic_vector(15 downto 0);
signal ZPU_ROM_DATA : std_logic_vector(31 downto 0);

signal ZPU_OUT1 : std_logic_vector(31 downto 0);
signal ZPU_OUT2 : std_logic_vector(31 downto 0);
signal ZPU_OUT3 : std_logic_vector(31 downto 0);
signal ZPU_OUT4 : std_logic_vector(31 downto 0);
887 markw
signal ZPU_OUT6 : std_logic_vector(31 downto 0);
121 markw
signal zpu_pokey_enable : std_logic;
signal zpu_sio_txd : std_logic;
signal zpu_sio_rxd : std_logic;
signal zpu_sio_command : std_logic;
848 markw
SIGNAL ASIO_CLOCKOUT : std_logic;
121 markw
-- system control from zpu
signal ram_select : std_logic_vector(2 downto 0);
signal reset_atari : std_logic;
signal pause_atari : std_logic;
SIGNAL speed_6502 : std_logic_vector(5 downto 0);
933 markw
signal turbo_vblank_only : std_logic;
198 markw
signal emulated_cartridge_select: std_logic_vector(5 downto 0);
848 markw
signal key_type : std_logic;
signal atari800mode : std_logic;
121 markw
-- spi
signal spi_cs_n : std_logic;
signal spi_mosi : std_logic;
signal spi_clk : std_logic;
887 markw
signal flash_cs_n : std_logic;
121 markw
124 markw
-- scandoubler
signal half_scandouble_enable_reg : std_logic;
signal half_scandouble_enable_next : std_logic;
signal VIDEO_B : std_logic_vector(7 downto 0);
signal VGA_VS : std_logic;
signal VGA_HS : std_logic;
126 markw
signal scanlines_next : std_logic;
signal scanlines_reg : std_logic;
signal freeze_n_reg : std_logic;
145 markw
signal freeze_n_next : std_logic;
126 markw
signal freeze_n_sync : std_logic;
124 markw
210 markw
-- turbo freezer!
signal freezer_enable : std_logic;
signal freezer_activate: std_logic;

145 markw
-- microcontroller (for slot flash)
signal to_usb_rx : std_logic;

151 markw
-- atari keyboard
signal shift_pressed : std_logic;
signal control_pressed : std_logic;
signal break_pressed : std_logic;
signal consol_start_ps2 : std_logic;
signal consol_start_int : std_logic;
signal consol_select_ps2 : std_logic;
signal consol_select_int : std_logic;
signal consol_option_ps2 : std_logic;
signal consol_option_int : std_logic;
signal fkeys_ps2 : std_logic_vector(11 downto 0);
signal fkeys_int : std_logic_vector(11 downto 0);
signal keyboard_response_ps2 : std_logic_vector(1 downto 0);
signal atari_keyboard : std_logic_vector(63 downto 0);
887 markw
signal atari_keyboard_ps2 : std_logic_vector(63 downto 0);
151 markw
297 markw
signal PS2_KEYS : STD_LOGIC_VECTOR(511 downto 0);
signal PS2_KEYS_NEXT : STD_LOGIC_VECTOR(511 downto 0);

887 markw
-- video settings
signal pal : std_logic;
signal scandouble : std_logic;
signal scanlines : std_logic;
signal csync : std_logic;
signal video_mode : std_logic_vector(2 downto 0);

-- flash memory slot
signal flashslot : unsigned(4 downto 0);

115 markw
begin
140 markw
--RESET_N <= PLL_LOCKED;
process(clk)
begin
if rising_edge(clk) then
if reset_counter=X"FFFF" then
reset_n<='1';
else
reset_counter<=reset_counter+1;
reset_n<='0';
end if;
end if;
end process;
115 markw
-- disable unused parts
-- sdram
120 markw
--sd_clk <= 'Z';
--sd_addr <= (others=>'0');
--sd_ba_0 <= '0';
--sd_ba_1 <= '0';
--sd_we_n <= '1';
--sd_ras_n <= '1';
--sd_cas_n <= '1';
--sd_data <= (others=>'Z');
--sd_ldqm <= '0';
--sd_udqm <= '0';
115 markw
-- pll
175 markw
chameleon_pll : entity work.pll_pre
PORT MAP(inclk0 => clk8,
c0 => CLK_PLL1,
locked => PLL1_LOCKED);

168 markw
gen_ntsc_pll : if tv=0 generate
175 markw
chameleon_pll2 : entity work.pll_ntsc_post
115 markw
PORT MAP
(
175 markw
inclk0 => CLK_PLL1,
120 markw
c0 => clk_sdram,
c1 => clk,
c2 => sd_clk,
175 markw
areset => not(PLL1_LOCKED),
115 markw
locked => pll_locked
);
168 markw
end generate;

gen_pal_pll : if tv=1 generate
175 markw
chameleon_pll2 : entity work.pll_pal_post
168 markw
PORT MAP
(
175 markw
inclk0 => CLK_PLL1,
168 markw
c0 => clk_sdram,
c1 => clk,
c2 => sd_clk,
175 markw
areset => not(PLL1_LOCKED),
168 markw
locked => pll_locked
);
end generate;
115 markw
-- core
120 markw
--atari800core : ENTITY work.atari800core_helloworld
-- GENERIC MAP
-- (
-- cycle_length => 32,
--
-- video_bits => 5,
--
-- internal_rom => 1,
-- internal_ram => 16384
-- )
-- PORT MAP
-- (
-- CLK => clk,
-- RESET_N => RESET_N,
--
-- -- VIDEO OUT - PAL/NTSC, original Atari timings approx (may be higher res)
-- VIDEO_VS => vga_vs_raw,
-- VIDEO_HS => vga_hs_raw,
-- VIDEO_B => blu,
-- VIDEO_G => grn,
-- VIDEO_R => red,
--
-- -- AUDIO OUT - Pokey/GTIA 1-bit and Covox all mixed
-- AUDIO_L => audio_l_raw,
-- AUDIO_R => audio_r_raw,
--
-- -- JOYSTICK
-- JOY1_n => std_logic_vector(docking_joystick1)(4 downto 0),
-- JOY2_n => std_logic_vector(docking_joystick2)(4 downto 0),
--
-- -- KEYBOARD
-- PS2_CLK => ps2_keyboard_clk_in,
-- PS2_DAT => ps2_keyboard_dat_in,
--
-- -- video standard
-- PAL => '1'
-- );

atarixl_simple_sdram1 : entity work.atari800core_simple_sdram
115 markw
GENERIC MAP
(
cycle_length => 32,
125 markw
internal_rom => 0,
120 markw
internal_ram => 0,
124 markw
video_bits => 8,
palette => 0
115 markw
)
PORT MAP
(
120 markw
CLK => CLK,
121 markw
RESET_N => RESET_N and SDRAM_RESET_N and not(reset_atari),
115 markw
-- VIDEO OUT - PAL/NTSC, original Atari timings approx (may be higher res)
124 markw
VIDEO_VS => VGA_VS_RAW,
VIDEO_HS => VGA_HS_RAW,
346 markw
VIDEO_CS => VGA_CS_RAW,
124 markw
VIDEO_B => VIDEO_B,
VIDEO_G => open,
VIDEO_R => open,
115 markw
-- AUDIO OUT - Pokey/GTIA 1-bit and Covox all mixed
AUDIO_L => audio_l_raw,
AUDIO_R => audio_r_raw,

-- JOYSTICK
151 markw
JOY1_n => std_logic_vector(docking_joystick1_reg and ir_joya)(4 downto 0),
JOY2_n => std_logic_vector(docking_joystick2_reg and ir_joyb)(4 downto 0),
887 markw
JOY3_n => std_logic_vector(docking_joystick3_reg)(4 downto 0),
JOY4_n => std_logic_vector(docking_joystick4_reg)(4 downto 0),
115 markw
120 markw
KEYBOARD_RESPONSE => KEYBOARD_RESPONSE,
KEYBOARD_SCAN => KEYBOARD_SCAN,
115 markw
121 markw
SIO_COMMAND => zpu_sio_command,
SIO_RXD => zpu_sio_txd,
SIO_TXD => zpu_sio_rxd,
887 markw
SIO_CLOCKOUT => ASIO_CLOCKOUT,
120 markw
126 markw
CONSOL_OPTION => CONSOL_OPTION or ir_option,
CONSOL_SELECT => CONSOL_SELECT or ir_select,
CONSOL_START => CONSOL_START or ir_start,
120 markw
SDRAM_REQUEST => SDRAM_REQUEST,
SDRAM_REQUEST_COMPLETE => SDRAM_REQUEST_COMPLETE,
SDRAM_READ_ENABLE => SDRAM_READ_ENABLE,
SDRAM_WRITE_ENABLE => SDRAM_WRITE_ENABLE,
SDRAM_ADDR => SDRAM_ADDR,
SDRAM_DO => SDRAM_DO,
SDRAM_DI => SDRAM_DI,
SDRAM_32BIT_WRITE_ENABLE => SDRAM_WIDTH_32bit_ACCESS,
SDRAM_16BIT_WRITE_ENABLE => SDRAM_WIDTH_16bit_ACCESS,
SDRAM_8BIT_WRITE_ENABLE => SDRAM_WIDTH_8bit_ACCESS,
SDRAM_REFRESH => SDRAM_REFRESH,

121 markw
DMA_FETCH => dma_fetch,
DMA_READ_ENABLE => dma_read_enable,
DMA_32BIT_WRITE_ENABLE => dma_32bit_write_enable,
DMA_16BIT_WRITE_ENABLE => dma_16bit_write_enable,
DMA_8BIT_WRITE_ENABLE => dma_8bit_write_enable,
DMA_ADDR => dma_addr_fetch,
DMA_WRITE_DATA => dma_write_data,
MEMORY_READY_DMA => dma_memory_ready,
DMA_MEMORY_DATA => dma_memory_data,
120 markw
121 markw
RAM_SELECT => ram_select,
PAL => PAL,
HALT => pause_atari,
198 markw
THROTTLE_COUNT_6502 => speed_6502,
933 markw
TURBO_VBLANK_ONLY => turbo_vblank_only,
210 markw
emulated_cartridge_select => emulated_cartridge_select,
freezer_enable => freezer_enable,
887 markw
freezer_activate => freezer_activate,
atari800mode => atari800mode
115 markw
);
464 markw
115 markw
-- video glue
124 markw
--nHSync <= (VGA_HS_RAW xor VGA_VS_RAW);
--nVSync <= (VGA_VS_RAW);
115 markw
-- audio glue
dac_left : hq_dac
port map
(
reset => not(reset_n),
clk => clk,
clk_ena => '1',
pcm_in => AUDIO_L_RAW&"0000",
468 markw
dac_out => sigmaR
115 markw
);

dac_right : hq_dac
port map
(
reset => not(reset_n),
clk => clk,
clk_ena => '1',
pcm_in => AUDIO_R_RAW&"0000",
468 markw
dac_out => sigmaL
115 markw
);

-- Some common chameleon parts - e.g. mux - taken from the hardware test

-- -----------------------------------------------------------------------
-- 1 Mhz and 1 Khz clocks
-- -----------------------------------------------------------------------
my1Mhz : entity work.chameleon_1mhz
generic map (
134 markw
clk_ticks_per_usec => 113
115 markw
)
port map (
134 markw
clk => clk_sdram,
115 markw
ena_1mhz => ena_1mhz,
ena_1mhz_2 => open
);

my1Khz : entity work.chameleon_1khz
port map (
134 markw
clk => clk_sdram,
115 markw
ena_1mhz => ena_1mhz,
ena_1khz => ena_1khz
);

145 markw
115 markw
-- -----------------------------------------------------------------------
-- Phi 2
-- -----------------------------------------------------------------------
126 markw
-- myPhi2: entity work.chameleon_phi_clock
-- port map (
-- clk => sysclk,
-- phiIn => phi2,
--
-- -- no_clock is high when there are no phiIn changes detected.
-- -- This signal allows switching between real I/O and internal emulation.
-- no_clock => no_clock,
--
-- -- docking_station is high when there are no phiIn changes (no_clock) and
-- -- the phi signal is low. Without docking station phi is pulled up.
-- docking_station => docking_station
-- );
--
-- phi2 <= not phi2_n;
115 markw
-- -----------------------------------------------------------------------
-- Docking station
-- -----------------------------------------------------------------------
126 markw
-- myDockingStation : entity work.chameleon_docking_station
-- port map (
-- clk => sysclk,
-- ena_1mhz => ena_1mhz,
-- enable => docking_ena,
--
-- docking_station => docking_station,
--
-- dotclock_n => dotclock_n,
-- io_ef_n => ioef_n,
-- rom_lh_n => romlh_n,
-- irq_d => irq_n,
-- irq_q => docking_irq,
--
-- joystick1 => docking_joystick1,
-- joystick2 => docking_joystick2,
-- joystick3 => docking_joystick3,
-- joystick4 => docking_joystick4,
-- keys => open,
-- restore_key_n => open,
--
-- amiga_power_led => '0',
-- amiga_drive_led => '0',
-- amiga_reset_n => open,
-- amiga_scancode => open
-- );
115 markw
-- -----------------------------------------------------------------------
-- MUX CPLD
-- -----------------------------------------------------------------------

126 markw
chameleon_io : entity work.chameleon_io
generic map (
enable_docking_station => true,
enable_c64_joykeyb => true,
134 markw
enable_c64_4player => true,
126 markw
enable_raw_spi => true,
enable_iec_access => false
)
port map (
134 markw
clk => clk_sdram,
clk_mux => clk_sdram,
126 markw
ena_1mhz => ena_1mhz,
144 markw
reset => not(reset_n), -- active high!!
126 markw
reset_ext => open,
115 markw
126 markw
-- Config
no_clock => no_clock,
docking_station => docking_station,
115 markw
126 markw
-- Chameleon FPGA pins
-- C64 Clocks
phi2_n => phi2_n,
dotclock_n => dotclock_n,
-- C64 cartridge control lines
io_ef_n => ioef_n,
rom_lh_n => romlh_n,
-- SPI bus
spi_miso => spi_miso,
-- CPLD multiplexer
mux_clk => mux_clk,
mux => mux,
mux_d => mux_d,
mux_q => mux_q,

-- USB microcontroller (To RX of micro)
145 markw
to_usb_rx => to_usb_rx,
126 markw
-- C64 timing (only for C64 related cores)
phi_mode => not(PAL),
phi_out => open,
phi_cnt => open,
phi_end_0 => open,
phi_end_1 => open,
phi_post_1 => open,
phi_post_2 => open,
phi_post_3 => open,
phi_post_4 => open,

-- C64 bus
-- (all disabled by generic for joystick anyway... - otherwise we could map c64 into Atari memory bank - he he ;-))
c64_irq_n => open,
c64_nmi_n => open,
c64_ba => open,

-- c64_vic : in std_logic := '0';
-- c64_cs : in std_logic := '0';
-- c64_cs_roms : in std_logic := '0';
-- c64_clockport : in std_logic := '0';
-- c64_we : in std_logic := '0';
-- c64_a : in unsigned(15 downto 0) := (others => '0');
-- c64_d : in unsigned(7 downto 0) := (others => '1');
-- c64_q : out unsigned(7 downto 0);

-- SPI chip-selects
mmc_cs_n => spi_cs_n,
887 markw
flash_cs_n => flash_cs_n,
126 markw
rtc_cs => '0',

-- SPI controller (enable_raw_spi must be set to false)
-- spi_speed : in std_logic := '1';
-- spi_req : in std_logic := '0';
-- spi_ack : out std_logic;
-- spi_d : in unsigned(7 downto 0) := (others => '-');
-- spi_q : out unsigned(7 downto 0);

-- SPI raw signals (enable_raw_spi must be set to true)
spi_raw_clk => spi_clk,
spi_raw_mosi => spi_mosi,
spi_raw_ack => open, -- I guess so Minimig can go as fast as the mux round robin...

115 markw
-- LEDs
126 markw
led_green => not(zpu_sio_txd),
led_red => not(zpu_sio_rxd),
ir => ir,
115 markw
126 markw
-- PS/2 Keyboard
ps2_keyboard_clk_out => '1',
ps2_keyboard_dat_out => '1',
ps2_keyboard_clk_in => ps2_keyboard_clk_in,
ps2_keyboard_dat_in => ps2_keyboard_dat_in,
115 markw
126 markw
-- PS/2 Mouse
-- ps2_mouse_clk_out: in std_logic := '1';
-- ps2_mouse_dat_out: in std_logic := '1';
-- ps2_mouse_clk_in: out std_logic;
-- ps2_mouse_dat_in: out std_logic;

-- Buttons
145 markw
button_reset_n => chameleon_reset_n_next(0),
126 markw
-- Joysticks
151 markw
joystick1 => docking_joystick1_next,
joystick2 => docking_joystick2_next,
joystick3 => docking_joystick3_next,
joystick4 => docking_joystick4_next,
126 markw
-- Keyboards
-- When no_clock = 0 its connected to C64...
151 markw
keys => c64_keys_next
153 markw
-- restore_key_n => restore
126 markw
-- amiga_reset_n : out std_logic;
-- amiga_trigger : out std_logic;
-- amiga_scancode : out unsigned(7 downto 0);

-- IEC bus
-- iec_clk_out : in std_logic := '1';
-- iec_dat_out : in std_logic := '1';
-- iec_atn_out : in std_logic := '1';
-- iec_srq_out : in std_logic := '1';
-- iec_clk_in : out std_logic;
-- iec_dat_in : out std_logic;
-- iec_atn_in : out std_logic;
-- iec_srq_in : out std_logic
);

-- CDTV IR decoder

myIr : entity work.chameleon_cdtv_remote
port map (
134 markw
clk => clk_sdram,
126 markw
ena_1mhz => ena_1mhz,
ir => ir,

-- trigger : out std_logic;
--
134 markw
key_1 => ir_fkeys_next(0),
key_2 => ir_fkeys_next(1),
key_3 => ir_fkeys_next(2),
key_4 => ir_fkeys_next(3),
-- key_5 => ir_fkeys_next(4),
-- key_6 => ir_fkeys_next(5),
-- key_7 => ir_fkeys_next(6),
-- key_8 => ir_fkeys_next(7),
-- key_9 => ir_fkeys_next(8),
-- key_0 => ir_fkeys_next(9),
126 markw
-- key_escape : out std_logic;
-- key_enter : out std_logic;
887 markw
key_escape => ir_escape,
134 markw
key_genlock => ir_fkeys_next(10),
key_cdtv => ir_fkeys_next(11),
key_power => ir_fkeys_next(9),
126 markw
key_rew => ir_start,
key_play => ir_select,
key_ff => ir_option,
134 markw
key_stop => ir_fkeys_next(8),
126 markw
-- key_vol_up : out std_logic;
-- key_vol_dn : out std_logic;
joystick_a => ir_joya,
joystick_b => ir_joyb
-- debug_code : out unsigned(11 downto 0)
);


-- -- MUX clock
-- process(sysclk)
-- begin
-- if rising_edge(sysclk) then
-- mux_clk_reg <= not mux_clk_reg;
-- end if;
-- end process;
--
-- -- MUX read
-- process(sysclk)
-- begin
-- if rising_edge(sysclk) then
-- if mux_clk_reg = '1' then
-- case mux_reg is
-- when X"6" =>
-- irq_n <= mux_q(2);
-- when X"B" =>
-- --reset_button_n <= mux_q(1);
-- --ir <= mux_q(3);
-- when X"A" =>
-- --vga_id <= mux_q;
-- when X"E" =>
-- ps2_keyboard_dat_in <= mux_q(0);
-- ps2_keyboard_clk_in <= mux_q(1);
-- --ps2_mouse_dat_in <= mux_q(2);
-- --ps2_mouse_clk_in <= mux_q(3);
-- when others =>
-- null;
-- end case;
-- end if;
-- end if;
-- end process;
--
-- -- MUX write
-- process(sysclk)
-- begin
-- if rising_edge(sysclk) then
-- docking_ena <= '0';
-- if mux_clk_reg = '1' then
-- case mux_reg is
-- when X"7" =>
-- mux_d_reg <= "1111";
-- if docking_station = '1' then
-- mux_d_reg <= "1" & docking_irq & "11";
-- end if;
-- mux_reg <= X"6";
-- when X"6" =>
-- mux_d_reg <= "1111";
-- mux_reg <= X"8";
-- when X"8" =>
-- mux_d_reg <= "1111";
-- mux_reg <= X"A";
-- when X"A" =>
-- mux_d_reg <= "10" & led_green & led_red;
-- mux_reg <= X"B";
-- when X"B" =>
-- mux_d_reg <= "1"&spi_cs_n&spi_mosi&spi_clk;
-- mux_reg <= X"C";
-- when X"C" =>
-- --mux_d_reg <= iec_reg;
-- mux_d_reg <= "1111";
-- mux_reg <= X"D";
-- docking_ena <= '1';
-- when X"D" =>
-- --mux_d_reg(0) <= ps2_keyboard_dat_out;
-- --mux_d_reg(1) <= ps2_keyboard_clk_out;
-- --mux_d_reg(2) <= ps2_mouse_dat_out;
-- --mux_d_reg(3) <= ps2_mouse_clk_out;
-- mux_d_reg <= "1111";
-- mux_reg <= X"E";
-- when X"E" =>
-- mux_d_reg <= "1111";
-- mux_reg <= X"7";
-- when others =>
-- mux_reg <= X"B";
-- mux_d_reg <= "10" & led_green & led_red;
-- end case;
-- end if;
-- end if;
-- end process;
--
-- mux_clk <= mux_clk_reg;
-- mux_d <= mux_d_reg;
-- mux <= mux_reg;

120 markw
-- -----------------------------------------------------------------------
126 markw
-- LEDs
-- -----------------------------------------------------------------------
-- myGreenLed : entity work.chameleon_led
-- port map (
-- clk => sysclk,
-- clk_1khz => ena_1khz,
-- led_on => '0',
-- led_blink => '1',
-- led => led_red,
-- led_1hz => led_green
-- );
--
--
-- -----------------------------------------------------------------------
120 markw
-- SDRAM
-- -----------------------------------------------------------------------
sdram_adaptor : entity work.sdram_statemachine
GENERIC MAP(ADDRESS_WIDTH => 22,
AP_BIT => 10,
COLUMN_WIDTH => 8,
ROW_WIDTH => 12
)
PORT MAP(CLK_SYSTEM => CLK,
CLK_SDRAM => CLK_SDRAM,
RESET_N => RESET_N,
READ_EN => SDRAM_READ_ENABLE,
WRITE_EN => SDRAM_WRITE_ENABLE,
REQUEST => SDRAM_REQUEST,
BYTE_ACCESS => SDRAM_WIDTH_8BIT_ACCESS,
WORD_ACCESS => SDRAM_WIDTH_16BIT_ACCESS,
LONGWORD_ACCESS => SDRAM_WIDTH_32BIT_ACCESS,
REFRESH => SDRAM_REFRESH,
ADDRESS_IN => SDRAM_ADDR,
DATA_IN => SDRAM_DI,
SDRAM_DQ => sd_data,
COMPLETE => SDRAM_REQUEST_COMPLETE,
SDRAM_BA0 => sd_ba_0,
SDRAM_BA1 => sd_ba_1,
SDRAM_CKE => open,
SDRAM_CS_N => open,
SDRAM_RAS_N => sd_ras_n,
SDRAM_CAS_N => sd_cas_n,
SDRAM_WE_N => sd_we_n,
SDRAM_ldqm => sd_ldqm,
SDRAM_udqm => sd_udqm,
DATA_OUT => SDRAM_DO,
SDRAM_ADDR => sd_addr(11 downto 0),
reset_client_n => SDRAM_RESET_N
);

sd_addr(12) <= '0';
115 markw
120 markw
-- PS2 to pokey
keyboard_map1 : entity work.ps2_to_atari800
PORT MAP
(
CLK => clk,
RESET_N => reset_n,
PS2_CLK => ps2_keyboard_clk_in,
PS2_DAT => ps2_keyboard_dat_in,
848 markw
INPUT => zpu_out4,

KEY_TYPE => key_type,
887 markw
ATARI_KEYBOARD_OUT => atari_keyboard_ps2,
120 markw
KEYBOARD_SCAN => KEYBOARD_SCAN,
151 markw
KEYBOARD_RESPONSE => KEYBOARD_RESPONSE_ps2,
115 markw
151 markw
CONSOL_START => CONSOL_START_ps2,
CONSOL_SELECT => CONSOL_SELECT_ps2,
CONSOL_OPTION => CONSOL_OPTION_ps2,
120 markw
210 markw
FKEYS => FKEYS_ps2,
297 markw
FREEZER_ACTIVATE => freezer_activate,

PS2_KEYS_NEXT_OUT => ps2_keys_next,
PS2_KEYS => ps2_keys
120 markw
);

151 markw
-- map to atari key code
process(c64_keys_reg, consol_start_ps2, consol_select_ps2, consol_option_ps2, fkeys_ps2)
begin
atari_keyboard <= (others=>'0');
fkeys_int <= (others=>'0');

shift_pressed <= '0';
control_pressed <= '0';
break_pressed <= '0';
consol_start_int <= '0';
consol_select_int <= '0';
consol_option_int <= '0';

atari_keyboard(63)<=not(c64_keys_reg(17));
atari_keyboard(21)<=not(c64_keys_reg(35));
atari_keyboard(18)<=not(c64_keys_reg(34));
atari_keyboard(58)<=not(c64_keys_reg(18));
atari_keyboard(42)<=not(c64_keys_reg(49));
atari_keyboard(56)<=not(c64_keys_reg(42));
atari_keyboard(61)<=not(c64_keys_reg(19));
atari_keyboard(57)<=not(c64_keys_reg(43));
atari_keyboard(13)<=not(c64_keys_reg(12));
atari_keyboard(1)<=not(c64_keys_reg(20));
atari_keyboard(5)<=not(c64_keys_reg(44));
atari_keyboard(0)<=not(c64_keys_reg(21));
atari_keyboard(37)<=not(c64_keys_reg(36));
atari_keyboard(35)<=not(c64_keys_reg(60));
atari_keyboard(8)<=not(c64_keys_reg(52));
atari_keyboard(10)<=not(c64_keys_reg(13));
atari_keyboard(47)<=not(c64_keys_reg(55));
atari_keyboard(40)<=not(c64_keys_reg(10));
atari_keyboard(62)<=not(c64_keys_reg(41));
atari_keyboard(45)<=not(c64_keys_reg(50));
atari_keyboard(11)<=not(c64_keys_reg(51));
atari_keyboard(16)<=not(c64_keys_reg(59));
atari_keyboard(46)<=not(c64_keys_reg(9));
atari_keyboard(22)<=not(c64_keys_reg(58));
atari_keyboard(43)<=not(c64_keys_reg(11));
atari_keyboard(23)<=not(c64_keys_reg(33));
atari_keyboard(50)<=not(c64_keys_reg(28));
atari_keyboard(31)<=not(c64_keys_reg(7));
atari_keyboard(30)<=not(c64_keys_reg(31));
atari_keyboard(26)<=not(c64_keys_reg(1));
atari_keyboard(24)<=not(c64_keys_reg(25));
atari_keyboard(29)<=not(c64_keys_reg(2));
atari_keyboard(27)<=not(c64_keys_reg(26));
atari_keyboard(51)<=not(c64_keys_reg(3));
atari_keyboard(53)<=not(c64_keys_reg(27));
atari_keyboard(48)<=not(c64_keys_reg(4));
atari_keyboard(17)<=not(c64_keys_reg(30));
atari_keyboard(52)<=not(c64_keys_reg(0));
atari_keyboard(28)<=not(c64_keys_reg(15));
atari_keyboard(39)<=not(c64_keys_reg(47));
atari_keyboard(60)<=not(c64_keys_reg(6));
atari_keyboard(44)<=not(c64_keys_reg(54));
atari_keyboard(12)<=not(c64_keys_reg(8));
atari_keyboard(33)<=not(c64_keys_reg(39));
atari_keyboard(54)<=not(c64_keys_reg(5));
atari_keyboard(55)<=not(c64_keys_reg(29));
atari_keyboard(15)<=not(c64_keys_reg(14));
atari_keyboard(14)<=not(c64_keys_reg(53));
atari_keyboard(6)<=not(c64_keys_reg(22));
atari_keyboard(7)<=not(c64_keys_reg(46));
atari_keyboard(38)<=not(c64_keys_reg(62));
atari_keyboard(2)<=not(c64_keys_reg(45));
atari_keyboard(32)<=not(c64_keys_reg(61));
atari_keyboard(34)<=not(c64_keys_reg(37));
shift_pressed<=not(c64_keys_reg(57)) or not(c64_keys_reg(38));
break_pressed<=not(c64_keys_reg(63));
153 markw
control_pressed<=not(c64_keys_reg(23));
151 markw
consol_start_int<=not(c64_keys_reg(32));
consol_select_int<=not(c64_keys_reg(40));
consol_option_int<=not(c64_keys_reg(48));

fkeys_int(8)<=not(c64_keys_reg(24)) and c64_keys_reg(23);
fkeys_int(9)<=not(c64_keys_reg(24)) and not(c64_keys_reg(23));
fkeys_int(10)<=not(c64_keys_reg(56));
fkeys_int(11)<=not(c64_keys_reg(16));

-- atari_keyboard(63)<=ps2_keys_reg(16#1C#);
-- atari_keyboard(21)<=ps2_keys_reg(16#32#);
-- atari_keyboard(18)<=ps2_keys_reg(16#21#);
-- atari_keyboard(58)<=ps2_keys_reg(16#23#);
-- atari_keyboard(42)<=ps2_keys_reg(16#24#);
-- atari_keyboard(56)<=ps2_keys_reg(16#2B#);
-- atari_keyboard(61)<=ps2_keys_reg(16#34#);
-- atari_keyboard(57)<=ps2_keys_reg(16#33#);
-- atari_keyboard(13)<=ps2_keys_reg(16#43#);
-- atari_keyboard(1)<=ps2_keys_reg(16#3B#);
-- atari_keyboard(5)<=ps2_keys_reg(16#42#);
-- atari_keyboard(0)<=ps2_keys_reg(16#4B#);
-- atari_keyboard(37)<=ps2_keys_reg(16#3A#);
-- atari_keyboard(35)<=ps2_keys_reg(16#31#);
-- atari_keyboard(8)<=ps2_keys_reg(16#44#);
-- atari_keyboard(10)<=ps2_keys_reg(16#4D#);
-- atari_keyboard(47)<=ps2_keys_reg(16#15#);
-- atari_keyboard(40)<=ps2_keys_reg(16#2D#);
-- atari_keyboard(62)<=ps2_keys_reg(16#1B#);
-- atari_keyboard(45)<=ps2_keys_reg(16#2C#);
-- atari_keyboard(11)<=ps2_keys_reg(16#3C#);
-- atari_keyboard(16)<=ps2_keys_reg(16#2A#);
-- atari_keyboard(46)<=ps2_keys_reg(16#1D#);
-- atari_keyboard(22)<=ps2_keys_reg(16#22#);
-- atari_keyboard(43)<=ps2_keys_reg(16#35#);
-- atari_keyboard(23)<=ps2_keys_reg(16#1A#);
-- atari_keyboard(50)<=ps2_keys_reg(16#45#);
-- atari_keyboard(31)<=ps2_keys_reg(16#16#);
-- atari_keyboard(30)<=ps2_keys_reg(16#1E#);
-- atari_keyboard(26)<=ps2_keys_reg(16#26#);
-- atari_keyboard(24)<=ps2_keys_reg(16#25#);
-- atari_keyboard(29)<=ps2_keys_reg(16#2E#);
-- atari_keyboard(27)<=ps2_keys_reg(16#36#);
-- atari_keyboard(51)<=ps2_keys_reg(16#3D#);
-- atari_keyboard(53)<=ps2_keys_reg(16#3E#);
-- atari_keyboard(48)<=ps2_keys_reg(16#46#);
-- --atari_keyboard(17)<=ps2_keys_reg(16#ec#);
-- --atari_keyboard(17)<=ps2_keys_reg(16#16c#);
-- atari_keyboard(17)<=ps2_keys_reg(16#16c#) or ps2_keys_reg(16#03#);
-- atari_keyboard(52)<=ps2_keys_reg(16#66#);
-- atari_keyboard(28)<=ps2_keys_reg(16#76#);
-- --atari_keyboard(39)<=ps2_keys_reg(16#91#);
-- atari_keyboard(39)<=ps2_keys_reg(16#111#);
-- atari_keyboard(60)<=ps2_keys_reg(16#58#);
-- atari_keyboard(44)<=ps2_keys_reg(16#0D#);
-- atari_keyboard(12)<=ps2_keys_reg(16#5A#);
-- atari_keyboard(33)<=ps2_keys_reg(16#29#);
-- atari_keyboard(54)<=ps2_keys_reg(16#4E#);
-- atari_keyboard(55)<=ps2_keys_reg(16#55#);
-- atari_keyboard(15)<=ps2_keys_reg(16#5B#);
-- atari_keyboard(14)<=ps2_keys_reg(16#54#);
-- atari_keyboard(6)<=ps2_keys_reg(16#52#);
-- atari_keyboard(7)<=ps2_keys_reg(16#5D#);
-- atari_keyboard(38)<=ps2_keys_reg(16#4A#);
-- atari_keyboard(2)<=ps2_keys_reg(16#4C#);
-- atari_keyboard(32)<=ps2_keys_reg(16#41#);
-- atari_keyboard(34)<=ps2_keys_reg(16#49#);
--
-- atari_keyboard(3)<=ps2_keys_reg(16#05#);
-- atari_keyboard(4)<=ps2_keys_reg(16#06#);
-- atari_keyboard(19)<=ps2_keys_reg(16#04#);
-- atari_keyboard(20)<=ps2_keys_reg(16#0c#);
--
-- consol_start_int<=ps2_keys_reg(16#0B#);
-- consol_select_int<=ps2_keys_reg(16#83#);
-- consol_option_int<=ps2_keys_reg(16#0a#);
-- shift_pressed<=ps2_keys_reg(16#12#) or ps2_keys_reg(16#59#);
-- --control_pressed<=ps2_keys_reg(16#14#) or ps2_keys_reg(16#94#);
-- control_pressed<=ps2_keys_reg(16#14#) or ps2_keys_reg(16#114#);
-- break_pressed<=ps2_keys_reg(16#77#);
--
-- fkeys_int(0)<=ps2_keys_reg(16#05#);
-- fkeys_int(1)<=ps2_keys_reg(16#06#);
-- fkeys_int(2)<=ps2_keys_reg(16#04#);
-- fkeys_int(3)<=ps2_keys_reg(16#0C#);
-- fkeys_int(4)<=ps2_keys_reg(16#03#);
-- fkeys_int(5)<=ps2_keys_reg(16#0B#);
-- fkeys_int(6)<=ps2_keys_reg(16#83#);
-- fkeys_int(7)<=ps2_keys_reg(16#0a#);
-- fkeys_int(8)<=ps2_keys_reg(16#01#);
-- fkeys_int(9)<=ps2_keys_reg(16#09#);
-- fkeys_int(10)<=ps2_keys_reg(16#78#);
-- fkeys_int(11)<=ps2_keys_reg(16#07#);

--merge special keys
consol_start<=consol_start_ps2 or consol_start_int;
consol_select<=consol_select_ps2 or consol_select_int;
consol_option<=consol_option_ps2 or consol_option_int;
fkeys<=fkeys_ps2 or fkeys_int;

end process;

process(keyboard_scan, atari_keyboard, control_pressed, shift_pressed, break_pressed, keyboard_response_ps2)
begin
keyboard_response <= keyboard_response_ps2;

if (atari_keyboard(to_integer(unsigned(not(keyboard_scan)))) = '1') then
keyboard_response(0) <= '0';
end if;

if (keyboard_scan(5 downto 4)="00" and break_pressed = '1') then
keyboard_response(1) <= '0';
end if;

if (keyboard_scan(5 downto 4)="10" and shift_pressed = '1') then
keyboard_response(1) <= '0';
end if;

if (keyboard_scan(5 downto 4)="11" and control_pressed = '1') then
keyboard_response(1) <= '0';
end if;
end process;

121 markw
zpu: entity work.zpucore
GENERIC MAP
(
platform => 1, -- TODO
863 markw
spi_clock_div => 16, -- 57MHz/32. Max for SD cards is 25MHz... TODO Same for DE1, too high??
nMHz_clock_div => 8
121 markw
)
PORT MAP
(
-- standard...
CLK => CLK,
RESET_N => RESET_N and sdram_reset_n,

-- dma bus master (with many waitstates...)
ZPU_ADDR_FETCH => dma_addr_fetch,
ZPU_DATA_OUT => dma_write_data,
ZPU_FETCH => dma_fetch,
ZPU_32BIT_WRITE_ENABLE => dma_32bit_write_enable,
ZPU_16BIT_WRITE_ENABLE => dma_16bit_write_enable,
ZPU_8BIT_WRITE_ENABLE => dma_8bit_write_enable,
ZPU_READ_ENABLE => dma_read_enable,
ZPU_MEMORY_READY => dma_memory_ready,
ZPU_MEMORY_DATA => dma_memory_data,

-- rom bus master
-- data on next cycle after addr
ZPU_ADDR_ROM => zpu_addr_rom,
ZPU_ROM_DATA => zpu_rom_data,

-- spi master
-- Too painful to bit bang spi from zpu, so we have a hardware master in here
848 markw
ZPU_SPI_DI => spi_miso,
ZPU_SPI_CLK => spi_clk,
ZPU_SPI_DO => spi_mosi,
ZPU_SPI_SELECT0 => spi_cs_n,
887 markw
ZPU_SPI_SELECT1 => flash_cs_n,
121 markw
-- SIO
-- Ditto for speaking to Atari, we have a built in Pokey
ZPU_POKEY_ENABLE => zpu_pokey_enable,
ZPU_SIO_TXD => zpu_sio_txd,
ZPU_SIO_RXD => zpu_sio_rxd,
ZPU_SIO_COMMAND => zpu_sio_command,
848 markw
ZPU_SIO_CLK => ASIO_CLOCKOUT,
121 markw
-- external control
-- switches etc. sector DMA blah blah.
297 markw
ZPU_IN1 => X"000"&
887 markw
mmc_wp&mmc_cd_n&
(atari_keyboard(28) or atari_keyboard_ps2(28) or ir_escape)&ps2_keys(16#5A#)&ps2_keys(16#174#)&ps2_keys(16#16B#)&ps2_keys(16#172#)&ps2_keys(16#175#)& -- (esc)FLRDU
(FKEYS or ir_fkeys_reg),
888 markw
ZPU_IN2(31 downto 5) => (others=>'0'),
ZPU_IN2(4 downto 0) => std_logic_vector(flashslot),
887 markw
ZPU_IN3 => atari_keyboard(31 downto 0) or atari_keyboard_ps2(31 downto 0),
ZPU_IN4 => atari_keyboard(63 downto 32) or atari_keyboard_ps2(63 downto 32),
121 markw
863 markw
-- nMHz clock
CLK_nMHz => CLK8,

121 markw
-- ouputs - e.g. Atari system control, halt, throttle, rom select
ZPU_OUT1 => zpu_out1,
ZPU_OUT2 => zpu_out2,
ZPU_OUT3 => zpu_out3,
887 markw
ZPU_OUT4 => zpu_out4,
ZPU_OUT6 => zpu_out6
121 markw
);

pause_atari <= zpu_out1(0);
145 markw
reset_atari <= zpu_out1(1) or reset_short_reg;
121 markw
speed_6502 <= zpu_out1(7 downto 2);
ram_select <= zpu_out1(10 downto 8);
848 markw
atari800mode <= zpu_out1(11);
198 markw
emulated_cartridge_select <= zpu_out1(22 downto 17);
210 markw
freezer_enable <= zpu_out1(25);
848 markw
key_type <= zpu_out1(26);
121 markw
933 markw
turbo_vblank_only <= zpu_out1(31);

887 markw
video_mode <= zpu_out6(2 downto 0);
PAL <= zpu_out6(4);
scanlines <= zpu_out6(5);
csync <= zpu_out6(6);

process(video_mode)
begin
SCANDOUBLE <= '0';

-- original RGB
-- scandoubled RGB (works on some vga devices...)
-- svideo
-- hdmi with audio (and vga exact mode...)
-- dvi (i.e. no preamble or audio) (and vga exact mode...)
-- vga exact mode (hdmi off)
-- composite (todo firmware...)

case video_mode is
when "000" =>
when "001" =>
SCANDOUBLE <= '1';
when "010" => -- svideo
-- not supported
when "011" =>
-- not supported
when "100" =>
-- not supported
when "101" =>
-- not supported
when "110" => -- composite
-- not supported

when others =>
end case;
end process;

121 markw
zpu_rom1: entity work.zpu_rom
port map(
clock => clk,
887 markw
address => zpu_addr_rom(14 downto 2),
121 markw
q => zpu_rom_data
);

enable_179_clock_div_zpu_pokey : entity work.enable_divider
generic map (COUNT=>32) -- cycle_length
port map(clk=>clk,reset_n=>reset_n,enable_in=>'1',enable_out=>zpu_pokey_enable);

124 markw
-----
-- scandoubler
-----
process(clk,RESET_N,SDRAM_RESET_N,reset_atari)
begin
if ((RESET_N and SDRAM_RESET_N and not(reset_atari))='0') then
half_scandouble_enable_reg <= '0';
elsif (clk'event and clk='1') then
half_scandouble_enable_reg <= half_scandouble_enable_next;
end if;
end process;

half_scandouble_enable_next <= not(half_scandouble_enable_reg);

scandoubler1: entity work.scandoubler
GENERIC MAP
(
video_bits=>5
)
PORT MAP
(
CLK => CLK,
RESET_N => RESET_N and SDRAM_RESET_N and not(reset_atari),

887 markw
VGA => scandouble,
COMPOSITE_ON_HSYNC => csync,
124 markw
colour_enable => half_scandouble_enable_reg,
doubled_enable => '1',
126 markw
scanlines_on => scanlines_reg,
124 markw
-- GTIA interface
245 markw
pal => pal,
124 markw
colour_in => VIDEO_B,
vsync_in => VGA_VS_RAW,
hsync_in => VGA_HS_RAW,
346 markw
csync_in => VGA_CS_RAW,
124 markw
-- TO TV...
R => red,
G => grn,
B => blu,

VSYNC => VGA_VS,
HSYNC => VGA_HS
);
nHSync <= not(VGA_HS);
nVSync <= not(VGA_VS);

126 markw
select_sync : entity work.synchronizer
PORT MAP ( CLK => clk, raw => freeze_n, sync=>freeze_n_sync);

145 markw
process(scanlines_reg, freeze_n_sync, freeze_n_reg, ena_10hz)
126 markw
begin
scanlines_next <= scanlines_reg;
145 markw
freeze_n_next <= freeze_n_reg;
if (ena_10hz = '1') then
freeze_n_next <= freeze_n_sync;
if (freeze_n_reg = '1' and freeze_n_sync = '0')then
scanlines_next <= not(scanlines_reg);
end if;
126 markw
end if;
end process;

process(clk,reset_n)
begin
if (reset_n='0') then
scanlines_reg <= '0';
freeze_n_reg <= '1';
145 markw
chameleon_reset_n_reg <= (others=>'1');
134 markw
ir_fkeys_reg <= (others=>'0');
145 markw
reconfig_reg <= '0';
reset_long_reg <= '0';
reset_short_reg <= '0';
151 markw
c64_keys_reg <= (others=>'1');
docking_joystick1_reg <= (others=>'1');
docking_joystick2_reg <= (others=>'1');
docking_joystick3_reg <= (others=>'1');
docking_joystick4_reg <= (others=>'1');
126 markw
elsif (clk'event and clk = '1') then
scanlines_reg <= scanlines_next;
145 markw
freeze_n_reg <= freeze_n_next;
134 markw
chameleon_reset_n_reg <= chameleon_reset_n_next;
ir_fkeys_reg <= ir_fkeys_next;
145 markw
reconfig_reg <= reconfig_next;
reset_long_reg <= reset_long_next;
reset_short_reg <= reset_short_next;
151 markw
c64_keys_reg <= c64_keys_next;
docking_joystick1_reg <= docking_joystick1_next;
docking_joystick2_reg <= docking_joystick2_next;
docking_joystick3_reg <= docking_joystick3_next;
docking_joystick4_reg <= docking_joystick4_next;
126 markw
end if;
end process;

145 markw
-- 10hz for crappy debounce!
my10khz : entity work.enable_divider
generic map (
count => 5700
)
port map (
clk => clk,
reset_n => reset_n,
enable_in => '1',
enable_out => ena_10khz
);

my10hz : entity work.enable_divider
generic map (
count => 1000
)
port map (
clk => clk,
reset_n => reset_n,
enable_in => ena_10khz,
enable_out => ena_10hz
);

process(ena_10hz, chameleon_reset_n_reg, reconfig_reg, reset_long_reg, reset_short_reg)
begin
reconfig_next <= reconfig_reg;
148 markw
chameleon_reset_n_next(6 downto 1) <= chameleon_reset_n_reg(6 downto 1);
145 markw
reset_short_next <= reset_short_reg;
reset_long_next <= reset_long_reg;
reconfig_next <= reconfig_reg or reset_long_reg;

if (ena_10hz = '1') then
reset_short_next <= '0';
reset_long_next <= '0';

148 markw
chameleon_reset_n_next(6 downto 1) <= chameleon_reset_n_reg(5 downto 0);
145 markw
if (chameleon_reset_n_reg(0) = '0') then
reset_short_next <= '1';
end if;
148 markw
if (or_reduce(chameleon_reset_n_reg(6 downto 0)) = '0') then
145 markw
reset_long_next <= '1';
end if;
end if;
end process;

usb : entity work.chameleon_usb
port map (
clk => clk_sdram,

req => open,
we => open,
a => open,
q => open,

reconfig => reconfig_reg,
reconfig_slot => "0000",

887 markw
flashslot => flashslot,
145 markw
-- talk to microcontroller
serial_clk => usart_clk,
serial_rxd => usart_tx,
serial_txd => to_usb_rx,
serial_cts_n => usart_rts,

serial_debug_trigger => open,
serial_debug_data => open
);

115 markw
end vhdl;