Attiny26 a Rc5send
Moderátor: Moderátoři
Attiny26 a Rc5send
$regfile = "attiny26.dat"
$crystal = 8000000
$hwstack = 32
$swstack = 8
$framesize = 24
Config Portb.4 = Output
Config Porta.2 = Input
Config Porta.5 = Input
Config Porta.6 = Input
Led Alias Portb.4
Test Alias Pina.2
Ina Alias Pina.5
Inb Alias Pina.6
Test = 1
Dim Togbit As Byte , Command As Byte , Address As Byte
Togbit = 0
Address = 0
Command = 255
Do
If Ina = 1 Then
Togbit = 0
Address = 10
Command = 10
Gosub Poslat
Waitms 100
End If
If Inb = 1 Then
Togbit = 0
Address = 10
Command = 20
Gosub Poslat
Waitms 100
End If
If Test = 0 Then
Togbit = 0
Address = 1
Command = 3
Gosub Poslat
Waitms 100
End If
Loop
End
Poslat:
Set Led
Rc5send Togbit , Address , Command
Reset Led
Return
Vypisuje
...assignment error [COMPARE1A:0 111:112] ... a odkazuje na poslední řádek v souboru