Va de Retro (Satanás) -- Versión 3.3 SSL
Retroinformática y consolas entre amigos sin complejos
Moderador: Fundadores
Hay una diferencia insalvable, al menos por el momento, entre el ZX-Uno y la Papilio Pro y es la RAM. Vosotros, con muy buen criterio, usáis SRAM, pero mi placa lleva SDRAM. La diferencia es bastante notable. Mientras que con la SRAM el acceso es tan sencillo como meter una dirección en un bus y leerlo/escribirlo al cabo de un instante en el bus de datos, con la SDRAM hay que enviar comandos tales como decir cuantas palabras vas a leer, de que banco, mandar el comando de lectura, esperar un número variable de ciclos para que el dato esté disponible... entretanto mandar comandos de refresco... un lio vamos.antoniovillena escribió:De momento puedes portar el código fuente de McLeod para el ZX-Uno, que hasta la fecha es la síntesis FPGA más fidedigna (y completa) que existe para ZX Spectrum. Todo el código está en el repositorio oficial
Si, esta es mucho mejor, sobre todo porque tiene SRAM como el ZX-Uno y el microcontrolador te permitiría cargar los cores desde la SD muy fácilmente (como hace la Myst). Pero no existía cuando compre la Pro así me tengo que aguantar con lo que hay.antoniovillena escribió:Por otro lado hay versiones más modernas de estas placas, en concreto la Papilio DUO-512Kb
http://www.seeedstudio.com/depot/Papili ... cPath=6_10
Con su placa de periféricos
http://www.seeedstudio.com/depot/Classi ... cPath=6_10
Lo se, lo se. Sigo vuestros progresos desde le principioantoniovillena escribió:Sí, lo de la SDRAM es un problema. El prototipo 0 del ZX-Uno fue una placa MOD-VGA. Dicha placa venía montada de serie con una SDRAM. Por suerte vendían una versión barata sin SDRAM y por la parte de atrás había una huella para SRAM, por lo que comprando esta y un chip de SRAM se podía hacer el apaño.
Si, también me he 'inspirado' en el diseño del ZX-Uno para estoantoniovillena escribió:Si es por aprender, con la BRAM tienes lo justo para un 48K. El conector DB9 va casi directo a un pin de la FPGA, así que ten mucho cuidado con las tensiones que le metes. Lo ideal es hacerte un circuito de EAR basado en un transistor como tiene el ZX-Uno (mírate los esquemáticos).
Código: Seleccionar todo
process(clock25)
begin
if rising_edge(clock25) then
if x < 799 then x <= x+1;
else
x <= (others => '0');
if y < 524 then y <= y+1;
else
y <= (others => '0');
end if;
end if;
if x >= 640+16 and x < 640+16+96 then hs <= '0'; else hs <= '1'; end if;
if y >= 480+10 and y < 480+10+ 2 then vs <= '0'; else vs <= '1'; end if;
if x < 640 and y < 480 then
rgb <= x"777";
else
rgb <= x"000";
end if;
end if;
end process;
Código: Seleccionar todo
process(clock25)
variable bpre : std_logic_vector(7 downto 0); -- precarga del bitmap
variable apre : std_logic_vector(7 downto 0); -- precarga de atributos
variable i, p : std_logic_vector(2 downto 0); -- i = INK, p = PAPER
variable b, c : integer; -- b = nº de píxel (de los 8 de cada byte) que se va a pintar
-- c = color resultante a pintar después de tener en cuenta si es INK o PAPER, el brillo y el flash
begin
if rising_edge(clock25) then
-- contadores de la señal VGA
if x < 799 then x <= x+1;
else
x <= (others => '0');
if y < 524 then y <= y+1;
else
y <= (others => '0');
f <= f+1; -- contador de flash
end if;
end if;
-- señales de sincronismo
if x >= 640+16 and x < 640+16+96 then hs <= '0'; else hs <= '1'; end if;
if y >= 480+10 and y < 480+10+ 2 then vs <= '0'; else vs <= '1'; end if;
-- zona visible
if x >= 64 and x < 64+512 and y >= 48 and y < 48+384 then
-- contador de coordenadas de pantalla adelantado 16 pulsos
if x = 64+512-16 and y = 48+383 then xy <= (others => '0'); else xy <= xy+1; end if;
-- proceso de captura de datos desde la memoria
if xy(3 downto 0) = "0000" then va <= xy(17 downto 16)&xy(12 downto 10)&xy(15 downto 13)&xy(8 downto 4); end if;
if xy(3 downto 0) = "1000" then va <= "110"&xy(17 downto 13)&xy( 8 downto 4); end if;
if xy(3 downto 0) = "0010" then bpre := vd; end if;
if xy(3 downto 0) = "1010" then apre := vd; end if;
if xy(3 downto 0) = "1110" then bmap <= bpre; attr <= apre; end if;
-- calculamos en indice dentro de la paleta de colores
-- valores de INK y PAPER
b := 7-to_integer(unsigned(x(3 downto 1)));
i := attr(2 downto 0);
p := attr(5 downto 3);
-- color del píxel en función de si está encendido o apagado y el flash
if attr(7) = '1' then
if f(5) = '1' then
if bmap(b) = '0' then c := to_integer(unsigned(i)); else c := to_integer(unsigned(p)); end if;
else
if bmap(b) = '0' then c := to_integer(unsigned(p)); else c := to_integer(unsigned(i)); end if;
end if;
else
if bmap(b) = '1' then c := to_integer(unsigned(i)); else c := to_integer(unsigned(p)); end if;
end if;
-- atributo de brillo
if attr(6) = '1' then c := c+8; end if;
-- color definitivo
rgb <= palette(c);
elsif x < 640 and y < 480 then
-- zona del borde
rgb <= x"700";
else
-- zona no visible
rgb <= x"000";
end if;
end if;
end process;