EclaireXL

fancy_switch_bit : integer := 20; -- 0=ext is low => mono

gtia_audio_bit : integer := 0; -- 0=no gtia on l/r,1=gtia mixed on l/r

detect_right_on_by_default : integer := 1;

a4_bit : integer := 0;

a5_bit : integer := 0;

a6_bit : integer := 0;

SIGNAL POKEY_WRITE_ENABLE : STD_LOGIC_VECTOR(3 downto 0);

SIGNAL SID_WRITE_ENABLE : STD_LOGIC_VECTOR(1 downto 0);

SIGNAL PSG_WRITE_ENABLE : STD_LOGIC_VECTOR(1 downto 0);

signal SIO_TXD : std_logic;

signal SIO_RXD : std_logic;

signal POKEY_IRQ : std_logic_vector(3 downto 0);

ENABLE => SID_CLK_ENABLE, --1MHz

WRITE_ENABLE => SID_WRITE_ENABLE(0),

ADDR => ADDR_IN(4 downto 0),

DI => WRITE_DATA(7 downto 0),

DO => SID_DO(0),

--EXTFILTER_EN => '0',

AUDIO => SID_AUDIO(0),

rom_addr => sid_flash1_addr,

rom_data => flash_do_slow,

rom_request => sid_flash1_romrequest,

ENABLE => SID_CLK_ENABLE, --1MHz

WRITE_ENABLE => SID_WRITE_ENABLE(1),

ADDR => ADDR_IN(4 downto 0),

DI => WRITE_DATA(7 downto 0),

DO => SID_DO(1),

--EXTFILTER_EN => '0',

AUDIO => SID_AUDIO(1),

rom_addr => sid_flash2_addr,

rom_data => flash_do_slow,

rom_request => sid_flash2_romrequest,

RESTRICT_CAPABILITY_REG

)

variable writereq : std_logic;

variable enable_region : std_logic;

begin

writereq := not(write_n) and request;

POKEY_WRITE_ENABLE <= (others=>'0');

SID_WRITE_ENABLE <= (others=>'0');

PSG_WRITE_ENABLE <= (others=>'0');

SAMPLE_WRITE_ENABLE <= '0';

CONFIG_WRITE_ENABLE <= '0';

DO_MUX <= SID_DO(0);

DRIVE_DO_MUX <= SID_DRIVE_DO(0);

SID_WRITE_ENABLE(0) <= writereq;

when "0110"|"0111" =>

enable_region := RESTRICT_CAPABILITY_REG(2);

DO_MUX <= SID_DO(1);

DRIVE_DO_MUX <= SID_DRIVE_DO(1);

SID_WRITE_ENABLE(1) <= writereq;

when "1000"|"1001" =>

enable_region := RESTRICT_CAPABILITY_REG(4);

DO_MUX <= SAMPLE_DO;

end if;

IRQ_EN_REG <= '0';

CHANNEL_MODE_REG <= '0';

POST_DIVIDE_REG <= "10100000"; -- 1/2 5v, 3/4 1v

GTIA_ENABLE_REG <= "1100"; -- external only

CONFIG_ENABLE_REG <= '0';

CH7 => unsigned(SID_AUDIO(1)),

CH8 => unsigned(PSG_AUDIO(0)),

CH9 => unsigned(PSG_AUDIO(1)),

CHA(15) => GTIA_AUDIO,

AUDIO_0_UNSIGNED => AUDIO_0_UNSIGNED,

SOD <= '0' when SIO_TXD='0' else 'Z';

SIO_RXD <= SID;

--1->pin37