Dominick.Vansevenant/Zorro-LAN-IDE
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

IDE & Autoconfig working

Browse Source
This commit is contained in:
MHeinrichs
2016-12-15 20:59:46 +01:00
parent 1440afbeeb
commit 508d7a7e5c
203 changed files with 26944 additions and 182 deletions
Download Patch File Download Diff File Expand all files Collapse all files
Logic/LAN_IDE/LAN_IDE_CP.vhd
+266 -2
View File
@@ -30,7 +30,7 @@ use IEEE.STD_LOGIC_1164.ALL;
--use UNISIM.VComponents.all;
entity LAN_IDE_CP is
Port ( A : inout STD_LOGIC_VECTOR (23 downto 0);
Port ( A : inout STD_LOGIC_VECTOR (23 downto 1);
D : inout STD_LOGIC_VECTOR (15 downto 0);
DQ : inout STD_LOGIC_VECTOR (15 downto 0);
A_LAN : out STD_LOGIC_VECTOR (13 downto 0);
@@ -49,6 +49,7 @@ entity LAN_IDE_CP is
UDS : in STD_LOGIC;
LDS : in STD_LOGIC;
AS : in STD_LOGIC;
RW : in STD_LOGIC;
Z3 : in STD_LOGIC;
DS1 : in STD_LOGIC;
FCS : in STD_LOGIC;
@@ -77,8 +78,271 @@ end LAN_IDE_CP;
architecture Behavioral of LAN_IDE_CP is
begin
SIGNAL ide: STD_LOGIC:= '0';
SIGNAL autoconfig: STD_LOGIC:= '0';
SIGNAL AUTOCONFIG_IN_PROGRESS: STD_LOGIC:= '0';
signal Dout1:STD_LOGIC_VECTOR(3 downto 0);
signal AUTO_CONFIG_DONE:STD_LOGIC_VECTOR(2 downto 0);
signal AUTO_CONFIG_DONE_CYCLE:STD_LOGIC_VECTOR(2 downto 0);
signal SHUT_UP:STD_LOGIC_VECTOR(2 downto 0);
signal IDE_BASEADR:STD_LOGIC_VECTOR(7 downto 0);
signal LAN_BASEADR:STD_LOGIC_VECTOR(7 downto 0);
signal CP_BASEADR:STD_LOGIC_VECTOR(7 downto 0);
signal IDE_ENABLE:STD_LOGIC:= '0';
signal ROM_OE_S:STD_LOGIC:= '1';
signal IDE_R_S:STD_LOGIC:= '1';
signal IDE_W_S:STD_LOGIC:= '1';
signal DTACK_S:STD_LOGIC:= '1';
signal AS_D: std_logic:= '1';
signal AMIGA_CLK: std_logic:= '1';
Function to_std_logic(X: in Boolean) return Std_Logic is
variable ret : std_logic;
begin
if x then ret := '1'; else ret := '0'; end if;
return ret;
end to_std_logic;
begin
AMIGA_CLK <= not (C1 xor C3);
ADDRESS_DECODE: process(AMIGA_CLK)
begin
if(rising_edge(AMIGA_CLK))then
if(AS='0')then
AUTOCONFIG_IN_PROGRESS<= autoconfig;
else
AUTOCONFIG_IN_PROGRESS<= '0';
end if;
if(BERR='1') then
if(A(23 downto 16) = x"E8" and not(AUTO_CONFIG_DONE ="111"))then
autoconfig <='1';
else
autoconfig <='0';
end if;
if(A(23 downto 16) = IDE_BASEADR and SHUT_UP(1) = '0')then
ide <='1';
else
ide <='0';
end if;
else
autoconfig <='0';
ide <='0';
end if;
end if;
end process ADDRESS_DECODE;
--ide
-- this is the clocked process
ide_rw_gen: process (AMIGA_CLK)
begin
if rising_edge(AMIGA_CLK) then
if (reset = '0') then
IDE_R_S <= '1';
IDE_W_S <= '1';
ROM_OE_S <= '1';
IDE_ENABLE <= '1';
elsif(AS='0' and ide='1')then
if(RW='0')then
--the write goes to the hdd!
IDE_ENABLE <= '0'; -- enable IDE on first read
IDE_W_S <= '0';
IDE_R_S <= '1';
ROM_OE_S <= '1';
else
IDE_W_S <= '1';
IDE_R_S <= IDE_ENABLE; --read from IDE instead from ROM
ROM_OE_S <= not IDE_ENABLE;
end if;
else
IDE_R_S <= '1';
IDE_W_S <= '1';
ROM_OE_S <= '1';
end if;
end if;
end process ide_rw_gen;
--autoconfig
autoconfig_done: process (reset, AS)
begin
if reset = '0' then
-- reset active ...
AUTO_CONFIG_DONE <="000";
elsif rising_edge(AS) then -- no reset, so wait for rising edge of the nAS
AUTO_CONFIG_DONE <= AUTO_CONFIG_DONE_CYCLE;
end if;
end process autoconfig_done;
autoconfig_proc: process (reset, AMIGA_CLK)
begin
if rising_edge(AMIGA_CLK) then -- no reset, so wait for rising edge of the clock
if reset = '0' then
-- reset active ...
AUTO_CONFIG_DONE_CYCLE <="000";
Dout1<="1111";
--Dout2<="1111";
SHUT_UP <="111";
IDE_BASEADR<=x"FF";
LAN_BASEADR<=x"FF";
CP_BASEADR<=x"FF";
elsif(autoconfig= '1' and AS='0') then
if(RW='1') then
if(AUTO_CONFIG_DONE(0)='0')then
case A(6 downto 1) is
when "000000" =>
Dout1 <= "1100" ; --ZII, System-Memory, no ROM
when "000001" => Dout1 <= "0001" ; --one Card, 64KB =001
when "000010" => Dout1 <= "1000" ; --ProductID high nibble : E->0001
when "000011" => Dout1 <= "0100" ; --ProductID low nibble: F->0000
--when "0001000" => Dout1 <= "1111" ; --Config HIGH: 0x20 and no shut down
--when "0001010" => Dout1 <= "1111" ; --Config LOW
--when "0010000" => Dout1 <= "1111" ; --Ventor ID 0
when "001001" => Dout1 <= "0101" ; --Ventor ID 1
when "001010" => Dout1 <= "1110" ; --Ventor ID 2
when "001011" => Dout1 <= "0011" ; --Ventor ID 3 : $0A1C: A1K.org
--when "0011000" => Dout1 <= "1111" ; --Serial byte 0 (msb) high nibble
--when "0011010" => Dout1 <= "1111" ; --Serial byte 0 (msb) low nibble
--when "0011100" => Dout1 <= "1111" ; --Serial byte 1 high nibble
--when "0011110" => Dout1 <= "1111" ; --Serial byte 1 low nibble
--when "0100000" => Dout1 <= "1111" ; --Serial byte 2 high nibble
--when "0100010" => Dout1 <= "1111" ; --Serial byte 2 low nibble
--when "0100100" => Dout1 <= "1111" ; --Serial byte 3 (lsb) high nibble
--when "010001" => Dout1 <= "1000" ; --Serial byte 2 low nibble
when "010011" => Dout1 <= "1110" ; --Serial byte 3 (lsb) low nibble
when "100000" => Dout1 <= "0000" ; --Interrupt config: all zero
when "100001" => Dout1 <= "0000" ; --Interrupt config: all zero
when others => Dout1 <= "1111" ;
end case;
elsif(AUTO_CONFIG_DONE(1)='0')then
case A(6 downto 1) is
when "000000" =>
if(AUTOBOOT_OFF ='0') then
Dout1 <= "1101" ; --ZII, no System-Memory, ROM
else
Dout1 <= "1100" ; --ZII, no System-Memory, no ROM
end if;
when "000001" => Dout1 <= "0001" ; --one Card, 64kb = 001
--when "0000100" => Dout2 <= "1111" ; --ProductID high nibble : F->0000=0
when "000011" => Dout1 <= "1001" ; --ProductID low nibble: 9->0110=6
--when "0001000" => Dout <= "1111" ; --Config HIGH: 0x20 and no shut down
--when "0001010" => Dout2 <= "1111" ; --Config LOW
--when "0010000" => Dout2 <= "1111" ; --Ventor ID 0
when "001001" => Dout1 <= "0111" ; --Ventor ID 1
when "001010" => Dout1 <= "1101" ; --Ventor ID 2
when "001011" => Dout1 <= "0011" ; --Ventor ID 3 : $082C: BSC
when "001100" => Dout1 <= "0100" ; --Serial byte 0 (msb) high nibble
when "001101" => Dout1 <= "1110" ; --Serial byte 0 (msb) low nibble
when "001110" => Dout1 <= "1001" ; --Serial byte 1 high nibble
when "001111" => Dout1 <= "0100" ; --Serial byte 1 low nibble
--when "0100000" => Dout2 <= "1111" ; --Serial byte 2 high nibble
--when "0100010" => Dout2 <= "1111" ; --Serial byte 2 low nibble
when "010010" => Dout1 <= "0100" ; --Serial byte 3 (lsb) high nibble
when "010011" => Dout1 <= "1010" ; --Serial byte 3 (lsb) low nibble: B16B00B5
--when "0101000" => Dout2 <= "1111" ; --Rom vector high byte high nibble
--when "0101010" => Dout2 <= "1111" ; --Rom vector high byte low nibble
--when "0101100" => Dout2 <= "1111" ; --Rom vector low byte high nibble
when "010111" => Dout1 <= "1110" ; --Rom vector low byte low nibble
when "100000" => Dout1 <= "0000" ; --Interrupt config: all zero
when "100001" => Dout1 <= "0000" ; --Interrupt config: all zero
when others => Dout1 <= "1111" ;
end case;
elsif(AUTO_CONFIG_DONE(2)='0')then
case A(6 downto 1) is
when "000000" =>
Dout1 <= "1100" ; --ZII, System-Memory, no ROM
when "000001" => Dout1 <= "0001" ; --one Card, 64KB =001
when "000010" => Dout1 <= "1000" ; --ProductID high nibble : E->0001
when "000011" => Dout1 <= "0011" ; --ProductID low nibble: F->0000
--when "0001000" => Dout1 <= "1111" ; --Config HIGH: 0x20 and no shut down
--when "0001010" => Dout1 <= "1111" ; --Config LOW
--when "0010000" => Dout1 <= "1111" ; --Ventor ID 0
when "001001" => Dout1 <= "0101" ; --Ventor ID 1
when "001010" => Dout1 <= "1110" ; --Ventor ID 2
when "001011" => Dout1 <= "0011" ; --Ventor ID 3 : $0A1C: A1K.org
--when "0011000" => Dout1 <= "1111" ; --Serial byte 0 (msb) high nibble
--when "0011010" => Dout1 <= "1111" ; --Serial byte 0 (msb) low nibble
--when "0011100" => Dout1 <= "1111" ; --Serial byte 1 high nibble
--when "0011110" => Dout1 <= "1111" ; --Serial byte 1 low nibble
--when "0100000" => Dout1 <= "1111" ; --Serial byte 2 high nibble
--when "0100010" => Dout1 <= "1111" ; --Serial byte 2 low nibble
--when "0100100" => Dout1 <= "1111" ; --Serial byte 3 (lsb) high nibble
--when "010001" => Dout1 <= "1000" ; --Serial byte 2 low nibble
when "010011" => Dout1 <= "1110" ; --Serial byte 3 (lsb) low nibble
when "100000" => Dout1 <= "0000" ; --Interrupt config: all zero
when "100001" => Dout1 <= "0000" ; --Interrupt config: all zero
when others => Dout1 <= "1111" ;
end case;
elsif(AUTO_CONFIG_DONE(1)='0')then
end if;
else --write
if( UDS='0' )then
if(AUTO_CONFIG_DONE(0)='0')then
if(A (6 downto 1)="100100")then
LAN_BASEADR(7 downto 0) <= D(15 downto 8); --Base adress
AUTO_CONFIG_DONE_CYCLE(0) <='1'; --done here
SHUT_UP(0) <='0'; --enable board
elsif(A (6 downto 1)="100110")then
AUTO_CONFIG_DONE_CYCLE(0) <='1'; --done here
end if;
elsif(AUTO_CONFIG_DONE(1)='0')then
-- if(AUTO_CONFIG_DONE(1)='0')then
if(A (6 downto 1)="100100")then
IDE_BASEADR(7 downto 0) <= D(15 downto 8); --Base adress
SHUT_UP(1) <= '0'; --enable board
AUTO_CONFIG_DONE_CYCLE(1) <='1'; --done here
elsif(A (6 downto 1)="100110")then
AUTO_CONFIG_DONE_CYCLE(1) <='1'; --done here
end if;
elsif(AUTO_CONFIG_DONE(2)='0')then
-- if(AUTO_CONFIG_DONE(1)='0')then
if(A (6 downto 1)="100100")then
CP_BASEADR(7 downto 0) <= D(15 downto 8); --Base adress
SHUT_UP(2) <= '0'; --enable board
AUTO_CONFIG_DONE_CYCLE(2) <='1'; --done here
elsif(A (6 downto 1)="100110")then
AUTO_CONFIG_DONE_CYCLE(2) <='1'; --done here
end if;
end if;
end if;
end if;
end if;
end if;
end process autoconfig_proc; --- that's all
--signal assignment
D <= --RAM_D when RW='1' and TRANSFER_IN_PROGRES ='1' else
Dout1 & "111111111111" when RW='1' and AUTOCONFIG_IN_PROGRESS ='1' else
"ZZZZZZZZZZZZZZZZ";
--
-- DRAM <= D when RW='0' and AS ='0' else
-- "ZZZZZZZZZZZZZZZZ";
IDE_W <= IDE_W_S;
IDE_R <= IDE_R_S;
IDE_CS(0)<= not(A(12));
IDE_CS(1)<= not(A(13));
IDE_A(0) <= A(9);
IDE_A(1) <= A(10);
IDE_A(2) <= A(11);
ROM_B <= "00";
ROM_OE <= ROM_OE_S;
-- DTACK <= DTACK_S when --TRANSFER_IN_PROGRES ='1' or
-- AUTOCONFIG_IN_PROGRES ='1'
-- else 'Z';
DTACK <= 'Z';
end Behavioral;