[bascom] Atmega8 Bascom – jak płynnie regulować częstotliwość PWM 10Hz–100kHz i wyświetlać?

$regfile = "m8def.dat"
$crystal = 8000000

Config Lcd = 16 * 2
Config Lcdpin = Pin , Db4 = Portd.5 , Db5 = Portd.6 , Db6 = Portd.7 , Db7 = Portd.4 , E = Portd.3 , Rs = Portd.2
Cursor Off

Config Pinb.3 = Input                                       'przycisk 1
Config Pinb.4 = Input                                       'przycisk 2
Config Pinb.5 = Input                                       'Przycisk 3
Config Pinb.1 = Output
Config Pinb.2 = Output
Config Pind.0 = Output
Config Pinb.0 = Output                                      'wyjscie generatora

                            'podciąganie przycisków
 Set Portb.3
 Set Portb.4
 Set Portb.5
                            'konfiguracja Timer0 jako timera
                            'z podziałem preskalera przez 8 = 1us

Config Timer0 = Timer , Prescale = 8


On Timer0 Odmierz_1us                   'przerwanie od przepełnienia
                                                      'Timer0 o etykiecie odmierz_1us
Dim A As Integer                             'zmienna wyświetlająca czas w "us"
Dim B As Byte                                 'zmiena ile razy zliczyć przerwanie
Dim C As Byte                    'zmienna pomocnicza do czyszczenia LCD
Dim D As Single                        'zmienna wyświetlająca czas w "ms"
Dim F As Byte                           'zmienna ile razy wystąpiło przerwanie

B = 255
C = 0
F = 0

Enable Interrupts            'odblokowanie globalnego systemu
                                     'przerwań
Enable Timer0                'odblokowanie przerwania od
                                    'przepełnienia Timer0

Do                                'pętla główna właściwie tylko do wyświetlania

If C = 100 Then             'co jakiś czas czyści LCD
   Cls
   C = 0
   End If

If A >= 1000 Then         'warunki do wyświetlania czasu w us i ms
             D = A / 1000
             Locate 1 , 1
             Lcd D ; "ms"

             Else
             Locate 1 , 1
             Lcd A ; "us"

         End If

 Incr C
Loop

End                                    'koniec programu

Odmierz_1us:                     'początek podprogramu obsługi
                                        'przerwania od przepełnienia
                                        'Timer0
 Load Timer0 = 50             'wartość początkowa Timer0
                                        'ustala na 50us

      Incr F
  If Pinb.3 = 0 Then           'obsługa przycisków zwiększ i zmniejsz
           Waitms 100                     'częstotliwość
           If Pinb.3 = 0 Then Incr B

         End If

  If Pinb.4 = 0 Then
           Waitms 100
           If Pinb.4 = 0 Then Decr B

         End If
     If B = 0 Then B = 1

 'porównanie wykonywanego przerwania z zadaną ilością przerwań
    If F = B Then    
 

       A = 50 * B        ' obliczenie do zmiennej czasu do wyświetlacza
       F = 0                 'zerowanie zmiennej licznikowej
       Toggle Portb.0     'zmień na przeciwny stan linii

  End If              


Return                      'powrót z przerwania