Attiny2313:
прошитые fuse:
- Код: Выделить всё
- spien
 sut1,sut0
 cksel0, cksel1, sksel3
кварц 16 Мгц
ATmega16:
прошитые fuse:
- Код: Выделить всё
- bootsz0, bootsz1
 ccort
 spien
 sut1,sut0
кварц 16 Мгц
прога:
- Код: Выделить всё
- $regfile = "m16def.dat"
 $crystal = 16000000
 $lib "mcsbyte.lbx"
 Config Rc5 = Pinb.4
 Config Pinb.3 = Output
 Config Portd.0 = Output
 Speaker Alias Portd.0
 Dim Address As Byte
 Dim Command As Byte
 Enable Interrupts
 $hwstack = 32
 $swstack = 10
 $framesize = 40
 Do
 Getrc5(address , Command)
 If Address = 0 Then
 Command = Command And &B01111111
 End If
 If Command = 12 Then
 Reset Portb.3
 End If
 If Command = 1 Then
 Set Portb.3
 Else
 Reset Portb.3
 End If
 If Command = 2 Then
 Set Portb.3
 Wait 1
 Reset Portb.3
 Wait 1
 Set Portb.3
 Wait 1
 Reset Portb.3
 End If
 If Command = 3 Then
 Set Portb.3
 End If
 Loop





