специально посмотрел в def файле, у меги88 Urxc есть.
- Код: Выделить всё • Развернуть
'$prog &HFF , &HE0 , &HDD , &HF9 ' для минибота 2.x
$regfile = "m88DEF.dat"
$crystal = 7372800
$baud = 115200
Config Serialin = Buffered , Size = 10
$hwstack = 64
$swstack = 64
$framesize = 64
Enable Interrupts 'разрешаем прерывания
Enable Urxc
On Urxc Getchar 'переопределяем прерывание на передачу по usart
Dim Text As String * 15 'строка для отправки/приема (длина строки 15 символов)
Dim Text_tmp As String * 15
Dim Txt_ As Byte
Config Servos = 1 , Servo1 = Portb.2 , Reload = 20
Config Pinb.2 = Output
Dim I As Byte
Print "Start Mega88 MiniBot 2.1"
Gosub Getchar
Do
For I = 0 To 100
Servo(1) = I
Waitms 2
Next
For I = 100 To 0 Step -1
Servo(1) = I
Waitms 2
Next
Loop
Getchar:
Txt_ = Inkey()
If Txt_ > 13 Then 'не служебные символы
Text_tmp = Chr(txt_)
Text = Text + Text_tmp
End If
If Txt_ = 13 Then'нажали ввод
'строка в Text принята
End If
Return
Добавлено спустя 11 минут 3 секунды:
разобрался
мешала строка
- Код: Выделить всё • Развернуть
Config Serialin = Buffered , Size = 10
Добавлено спустя 1 минуту 57 секунд:
оказывается в в хелпе написано, что serial отключает прерывания
из хелпа
SERIAL Disables URXC, UDRE and UTXC