Przykładowy program. Nie robi nic ciekawego tylko wybudza procesor z power-down przez int0 i miga diodami.
Zaloguj się, aby zobaczyć kod
$regfile = "attiny13.dat"
$crystal = 9600000
Config Portb = &B011000
Portb = &B000010
$hwstack = 24
$swstack = 8
$framesize = 24
Dim X As Bit
Dim Y As Byte
Config Int0 = Low Level
Enable Interrupts
On Int0 Go Nosave
Set X
Do
If X = 1 Then
Disable Int0
Reset X
For Y = 1 To 4
Toggle Portb.3
Waitms 15
Next Y
For Y = 1 To 4
Toggle Portb.4
Waitms 15
Next Y
Enable Int0
End If
Mcucr = &B00110000
Powerdown
Loop
End
Go:
Set X
Mcucr = &B00010000
Return
Jedyne co musisz zrobić to sprawdzić jakie rejestry odpowiadają za tyb power-down w datashe'cie twojego attiny. W tym przykładzie dla attiny13 to Mcucr = &B00110000 i Mcucr = &B00010000