Zamiennik układu HV77 dla wyświetlaczy Williams Cherry

[unitradiorazrk]

Na razie to pomysł - wykonania jeszcze nie ma.
Edit:
No i mamy pierwszą niezgodność z przebiegiem czasowym kontrolera.
Prawidłowy przebieg dla jednego kanału (jeszcze bez estetyki)

Kod:

'początek działania programu
Do                                                          'oczekiwanie na synchronizacje
  Loop Until Clk = 1

'reset ustawien (gdyby procesor odebral jakies smieci)
Hvout1 = 0
Hvout2 = 0
Hvout3 = 0
Hvout4 = 0
Hvout5 = 0
Hvout6 = 0
Hvout7 = 0
Hvout8 = 0
Hvout9 = 0
Hvout10 = 0
Hvout11 = 0
Hvout12 = 0
Hvout13 = 0
Hvout14 = 0
Hvout15 = 0
Hvout16 = 0
Hvout17 = 0
Hvout18 = 0
Hvout19 = 0
Hvout20 = 0
Hvout21 = 0
Hvout22 = 0
Hvout23 = 0
Hvout24 = 0

   Do
     For Licznik = 1 To 64        
         Do
           Loop Until Clk = 1
         Wyj = Wej
         'prawidlowla instrukcja if
         'sygnal blank jest juz dobrze rozpoznawany!
         'zmiana wyjscia kanału nastepuje przy wysokim stanie latch, przy niskim stan jest zachowany, czyli jest OK
         If Blank = 0 Then                                  'niski stan blank przelacza wszystkie wyjscia HVout w stan niski (wyswietlacz wygaszony)
                 Hvout1 = 0
                 Hvout2 = 0
                 Hvout3 = 0
                 Hvout4 = 0
                 Hvout5 = 0
                 Hvout6 = 0
                 Hvout7 = 0
                 Hvout8 = 0
                 Hvout9 = 0
                 Hvout10 = 0
                 Hvout11 = 0
                 Hvout12 = 0
                 Hvout13 = 0
                 Hvout14 = 0
                 Hvout15 = 0
                 Hvout16 = 0
                 Hvout17 = 0
                 Hvout18 = 0
                 Hvout19 = 0
                 Hvout20 = 0
                 Hvout21 = 0
                 Hvout22 = 0
                 Hvout23 = 0
                 Hvout24 = 0
         End If
         If Licznik = 1 And Latch = 1 And Blank = 1 Then
            'instrukcja case
            Select Case Wej
                   Case 0 : Hvout1 = 0
                   Case 1 : Hvout1 = 1
            End Select
         End If
         'reszta instrukcji od tego momentu do przerobienia, inaczej na wyswietlaczu wczesniej aktywne punkty kolumn od 2 do 24 nie będą gasnąć!