[syntax=basic4gl]$regfile = "ATtiny45.dat" 'procesor Attiny13
$crystal = 9600000 'niższe taktowanie, CKDIV=0
'przy zmianie CKDIV = 1
'zmienić wartośc na 9600000
Ddrb = &B11110011 'konfiguracja portu 1-wyjscie, 0-wejscie
Portb = &B00001000 '1-rezystor podciagajacy
Tccr0a.wgm01 = 1 'CTC mode
Tccr0b.cs00 = 1 'Prescale 1
Tccr0a.com0b0 = 1 'Toggle OC0
Ocr0a = 124 'Toggle every (9600000/(38kHz*2))=124
Timsk.ocie0b = 1
'Config Timer0 = 124 , Prescale = 1
Enable Timer0 : On Timer0 Prztimer0
Enable Interrupts
Dim Flaga_1 As Bit
Dim Licznik(6) As Integer
Do 'pętla
If Flaga_1 = 1 Then
Flaga_1 = 0
Gosub Led
End If
If Pinb.3 = 0 Then Portb.4 = 1
If Pinb.3 = 1 Then Portb.4 = 0
Loop 'koniec pętli
End
Prztimer0:
'Incr Licznik(1)
Incr Licznik(3)
If Licznik(3) = 100 Then
Set Flaga_1
Licznik(3) = 0
End If
Return
Led:
Toggle Portb.0
Return 'koniec programu[/syntax]Statystyki: Napisane przez tevo — 8 gru 2013, o 11:07
]]>