roboforum.ru

spien
sut1,sut0
cksel0, cksel1, sksel3

bootsz0, bootsz1
ccort
spien
sut1,sut0

$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

while(1) {
  _delay_ms(500);
  led_on();
  _delay_ms(500);
  led_off();
}