$crystal = 4000000                                          'Deklaracja częstotliwości kwarcu
$regfile "attiny2313.dat" 				'deklaracja modelu procesora

Declare Sub Zwieksz 					'Deklaracja procedury zwiększającej stan rejestru porównania
Declare Sub Zmniejsz 					'Deklaracja procedury zmniejszającej stan rejestru porównania



Config Timer1 = Pwm , Pwm = 8 , Prescale = 8 , Compare A Pwm = Clear Down 'Konfiguracja Timera

Config Portd = 127 					'Pd.0 i Pd.1 jako wejścia
Portd = 127 						'podciągnięte

Ddrb = &B11111111 					'Odblokowanie globalnego wyjścia OC1

Cls : Lcd "Portal naukowy" : Lowerline : Lcd "Generator PWM" 'wstępny opis

Wait 3                                                      'czekaj 3 sekundy
Pwm1a = 20                                                 'wstępnie w rejestrze Pwm1 liczba 20 - niewielka moc

Do                                                          'pętla nieskończona
If Pind.0 = 0 Then Zmniejsz                                 'S1 zmniejsza zawartość rejestru Pwm1a (=OCR1)
If Pind.1 = 0 Then Zwieksz                                  'S2 zwiększa zawartość rejestru Pwm1a (=OCR1)
Cls                                                         'czyść wyświetlacz
Lcd "rejestr PWM1a"                                         'wyświetl zawartość rejestru OCR1
Lowerline
lcd Pwm1a                                                   
                                                  'wyświetl zawartość licznika T/C1 (TCNT1)
Waitms 100                                                  'czekaj 100 milisekundę
Loop : End

Sub Zwieksz 						'procedury: zwiększająca i zmniejszająca stal rejestru porównania
Incr Pwm1a
End Sub

Sub Zmniejsz
Decr Pwm1a
End Sub