Любительская девборда на Z80

[Mick]

Mick, компилятор не сругнется, но работать такое не будет.

if sync_count = 7 - вот так надо

Хорошо, но тогда вопрос в другом. Ведь по схеме сторчный счетчик срабатывает при переходе из 7 -> 0, т.е. по спаду. А тут получится немного раньше сработает.

---------- Post added at 16:00 ---------- Previous post was at 15:58 ----------

Примерно так:

               elsif (CLK_25MHZ'event and CLK_25MHZ = '1') then
                         if (Sync_count = 7) then 

                             if HSync_count = 99 then
                                HSync_count <= (others => '0');

               elsif (CLK_25MHZ'event and CLK_25MHZ  = '1') then
                         if (HSync_count = 99 and Sync_count= 7) then 

                             if VSync_count = 448 then
                                 VSync_count <= (others => '0');

Ах да, забыл еще и с 0 посчитать.

[Mick]

Еще вопрос, как правильнее описать вот этот кусок схемы.

    ------------------------------------------------------------------------------------
    -- Сигнал стробирования адреса и формирование частоты процессора
    -- Примечание: память работает на частоте 12,5МГц, процессор на частоте 6,25МГц
  ------------------------------------------------------------------------------------
  Clock_sync : process(CLK_25MHZ)
                    begin
                  if (CLK_25MHZ'event and CLK_25MHZ  = '1') then
                          Strobe_Addr <= Sync_count(0);
                          
                          if(CLK_25MHZ  = '1' and Sync_count(0) = '0') then 
                           C_CLK <= not Sync_count(1);
                          end if;
                        end if;
             end process Clock_sync;

Так как схема синхронна, то для того чтобы работать в VGA в столь извращенном виде необходимо чтобы память работала считай в турбо режиме. В данном случае H0 = 12,5МГц, H1 = 6,25МГц. Процессор планируется работать на частоте 6,25 МГц.
Сигнал RAS/ это считай строб адреса для мультиплексоров типа КП13.

Типа такой схемы я опробовал в втором Фениксе (память работала всегда на 7Мгц, а процессор либо 3,5МГц, либо 7МГц).

[IanPo]

if rising_edge(f25) then RAS <= H0;
if rising_edge(f25) and H0 = 0 then CLK <= not H1;

синтаксис проверяй!
можешь объединить все под условием rising_edge или как ты пишешь : 'event и '=1

[Mick]

if rising_edge(f25) then RAS <= H0;
if rising_edge(f25) and H0 = 0 then CLK <= not H1;

синтаксис проверяй!
можешь объединить все под условием rising_edge или как ты пишешь : 'event и '=1

Как я понял, будет выглядеть так.

 ------------------------------------------------------------------------------------
    -- Сигнал стробирования адреса и формирование частоты процессора
    -- Примечание: память работает на частоте 12,5МГц, процессор на частоте 6,25МГц
  ------------------------------------------------------------------------------------
  Clock_sync : process(CLK_25MHZ)
                    begin
                  if (CLK_25MHZ'event and CLK_25MHZ  = '1') then
                          Strobe_Addr <= Sync_count(0); -- RAS <= H0;
                          
                          if Sync_count(0) = '0' then 
                             C_CLK <= not Sync_count(1); -- C_CLK <= not H1;
                          end if;
                     end if;
             end process Clock_sync;

[IanPo]

Mick, да, все правильно. Можно сделать 2 отд.процесса - по 1 для каждого сигнала (CLK и RAS), профики вроде так делают обычно, разделяют логику. Все условие в скобках необязательно писать. Но если тебе так проще, то и нормально.
http://tehnari.info/glava-2.-yazyk-v...zyke-vhdl.html - тут приоритеты (по возрастанию), чтобы меньше скобок делать.

[Mick]

Mick, да, все правильно. Можно сделать 2 отд.процесса - по 1 для каждого сигнала (CLK и RAS), профики вроде так делают обычно, разделяют логику. Все условие в скобках необязательно писать. Но если тебе так проще, то и нормально.
http://tehnari.info/glava-2.-yazyk-v...zyke-vhdl.html - тут приоритеты (по возрастанию), чтобы меньше скобок делать.

Я пока не профик, я еще только в начале пути

Кстати, если допустим разделить процессы

то если с RAS понятно

  RAS_sync : process(CLK_25MHZ)
                    begin
                  if (CLK_25MHZ'event and CLK_25MHZ  = '1') then
                          Strobe_Addr <= Sync_count(0); -- RAS <= H0;
                        
                     end if;
             end process RAS_sync;

То вот для CLK процесса как правильнее будет

  CLK_sync : process(CLK_25MHZ)
                    begin
                  if (CLK_25MHZ'event and CLK_25MHZ  = '1') then
                      if Sync_count(0) = '0' then 
                             C_CLK <= not Sync_count(1); -- C_CLK <= not H1;
                          end if;
                     end if;
             end process CLK_sync;

или

  CLK_sync : process(CLK_25MHZ)
                    begin
                  if CLK_25MHZ'event and CLK_25MHZ  = '1' and Sync_count(0) = '0'  then
                           C_CLK <= not Sync_count(1); -- C_CLK <= not H1;
                   end if;
             end process CLK_sync;

Или они равнозначны?

[IanPo]

Ну, я разницы не вижу.
Как читать удобнее, то и выбирай.
-----------------
Пришло в голову:
возможно, во втором случае надо включить в список чувствительности еще и Sync_count(0), только я не уверен.

[Mick]

Пришло в голову:
возможно, во втором случае надо включить в список чувствительности еще и Sync_count(0), только я не уверен.

Тогда оставлю вариант через два if.

Вот еще сигнал INT на проверку. Сигнал прерывания формируется по кадровому импульсу частотой 70Гц.
Длительность прерывания 32 такта процессора.
Сюда нужно добавлять сигнал сброса или не надо?

  ------------------------------------------------------------------------------------
    -- Сигнал прерывания
  -- Примечание: прерывание генерится с частотой 70Гц по кадровому синхроимпульсу
  ------------------------------------------------------------------------------------
  INT_sync : process(VSync, HSync_count)
               begin
              if HSync_count >= 8 then
                          C_INT <= '1';
                    elsif (VSync'event and VSync  = '1') then
                          C_INT <= '0';
                    end if;
           end process INT_sync;

Cо сбросом

  ------------------------------------------------------------------------------------
    -- Сигнал прерывания
  -- Примечание: прерывание генерится с частотой 70Гц по кадровому синхроимпульсу
  ------------------------------------------------------------------------------------
  INT_sync : process(C_RESET, VSync, HSync_count)
               begin
              if C_RESET = '0' or HSync_count >= 8 then
                          C_INT <= '1';
                    elsif (VSync'event and VSync  = '1') then
                          C_INT <= '0';
                    end if;
           end process INT_sync;

Еще чуток сигналов и синхрогенератор считай написан

[IanPo]

Может, так (вне процессов) ?
C_INT <= '0' when VSync = '1' and HSync_Count < 8 and C_RESET = '1' else '1';
Нужен ли тут C_RESET (это сброс процессора?), не могу сказать, этот ты должен сам решить.

[Mick]

Может, так (вне процессов) ?
C_INT <= '0' when VSync = '1' and HSync_Count < 8 and C_RESET = '1' else '1';
Нужен ли тут C_RESET (это сброс процессора?), не могу сказать, этот ты должен сам решить.

C_RESET это общий сброс. По сути при сбросе проц запрещает прерывание. По логике, если и возникнет, один фиг его не обработают.
Может действительно сброс лишний.

---------- Post added at 12:12 ---------- Previous post was at 11:59 ----------

Кстати, на счет прерывания.
Помоему не получится как ты написал. Кадровый синхроимпульс длится две строки.
Получится что прерывание возникнет еще и во второй строке.