программный uart bascom проблема Опции

[All64]

Помогите пожалуйста
иногда останавливается на строке ААААААААА и эхом шлет назад отправленный байт





Metka312:


Open "comB.1:9600,8,n,1" For Input As #2
' ' ЖДЕМ КОМАНДУ- ЗАПИСЬ ИЛИ ЧТЕНИЕ или выход
Input #2 , I 'ААААААААА
Close #2



If I = 254 Then Goto Metka424
If I = 253 Then Goto Metka424
If I = 252 Then Goto Metka556
Goto Metka312

Metka424:
If I = 254 Then
' 'ВХОДИМ В ПРОГРАММИРОВАНИЕ
B = 0
Open "comB.1:9600,8,n,1" For Input As #2
Metka425:
Input #2 , Igetline
Writeeeprom Igetline , B





B = B + 1
If B < &H200 Then Goto Metka425
Close #2

Open "comB.0:9600,8,n,1" For Output As #1
Print #1 , "ЗАВЕРШЕНО"
Close #1
Else
If I = 253 Then
' 'ВЫВОДИМ В ПОРТ НАСТРОЙКИ
For A = 0 To &H1FF
Readeeprom Igetline , A
Open "comB.0:9600,8,n,1" For Output As #1
Print #1 , Igetline
Close #1
Next A
Open "comB.0:9600,8,n,1" For Output As #1
Print #1 , "ЗАВЕРШЕНО"
Close #1
End If

End If
Goto Metka312

Metka556:

[All64]

Кто использовал программный UART, отзовитесь пожалуйста.
Уже недели бьюсь.....

Сообщение отредактировал IgorKossak - Apr 18 2011, 06:54

Причина редактирования: Бездумнейшее самоцитирование, поднятие темы - нарушение правил.

[=GM=]

Кто использовал программный UART, отзовитесь пожалуйста

Почти не знаю васика, но пмсм надо открыть компорт в начале проги, больше ничего, а в цикле его не надо закрывать.