roboforum.ru

уменьшил размер стека, выкинул некоторые команды.
установил более жесткие ограничения на длины токенов(слов интерпретатора) и их количество.
итог: свободно 65% флеша, 404 байта озу.
добавил отладочные строки, очень хотелось бы посмотреть что выводит реальное устройство

=DeaD= писал(а):Не понял

мб вы предложили бы суперсложный алгоритм вот я и спросил

Interpreter test.bas
INTERPRETER TEST.HEX
в архиве tester.rar

а в верхнем сообщении его нет?
странно.

у терминала бод рейт какой? в исходнике 19200, попробуйте перекомпилировать с меньшей скоростью уарт

Добавлено спустя 1 минуту 3 секунды:
да нажатия ентера, он повторяет пользовательский ввод?(бэкспейс работать должен)

таакс. теперь при вводе fs 1 он будет возвращать код каждого принятого символа, в том числе ентера.(при этом первоначальный ввод не сохраняется. буквы команды будут висеть перед "getsymbol")
увеличил размер буфера приема уарта, снизил скорость до 2400, добавил задержку 250мс после вывода приглашения.
увеличил стек до неприличия. проверьте частоту мк.
на этом мои рецепты пока закончились

Добавлено спустя 1 минуту 21 секунду:
P.S. выкладывайте плиз скриншот терминала, не видно, выводится ли надпись приветствия

Добавлено спустя 1 минуту 48 секунд:
вообще, такое ощущение что он считает юзерским вводом отправленные мною же символы. оч странно для дуплекса

вернул стек к 128,128,128.
убрал строчку с фусибитами, вообщем просто привел конфиги к вашей ver2, разве что буфер по усарту побольше и скорость поменьше. убрал лишние дебаг строки. добавил нехилое ожидание между двумя символами. чуток изменил процедуру ввода команды.

здесь он принимает символ:

Код: Выделить всё • Развернуть

Do
  Gbinp = Waitkey()                                         ' get user input
  If Gbinp <> 0 Then                                        ' something typed in?
      If Gbinp = 27 Then                                    ' use ESC for exit from interpreter
         Exit Do
      End If
      Waitms 500
      Print "get symbol:" ; Gbinp
      Waitms 500
      Getinput Gbinp                                        ' give input to interpreter
  End If
Loop       

здесь он обрабатывает символы и составляет из них большую строку Gspcinput:

Код: Выделить всё • Развернуть

Sub Getinput(pbbyte As Byte)
   ' stores bytes from user and wait for CR (&H13)
   Select Case Pbbyte
      Case &H0A                                             ' do nothing
      Case &H0D                                             ' Line-end?
         Print Chr(&H0d) ; Chr(&H0a) ;
               Print "GOTCHA! You have entered string:" ; Gspcinput
         Docommand                                          ' analyse command and execute
         Gbpcinputpointer = 1                               ' reset for new user-input
         Gspcinput = ""
         Printprompt
      Case &H08                                             ' backspace ?
         If Gbpcinputpointer > 1 Then
            Print Chr(&H08);
            Decr Gbpcinputpointer
         End If
      Case Else                                             ' store user-input
         If Gbpcinputpointer <= Cpcinput_len Then
            Mid(gspcinput , Gbpcinputpointer , 1) = Pbbyte
            Incr Gbpcinputpointer
            Mid(gspcinput , Gbpcinputpointer , 1) = &H00    ' string-terminator
            Print Chr(pbbyte);                              ' echo back to user
         End If
   End Select
End Sub

где-то в этих процедурах происходит ошибка. об этом можно судить по тому что у вас в терминале

EdGull писал(а):GOTCHA! You have entered string:AVR-DOS: Ready f0>m0>AVR-DOS: Ready f0>m0>AVR-DOS: Ready f0>m0>AVR-DOS: Ready f0

это строка пользовательского ввода , что очень странно, поскольку эхо работает(или нет? среда должна получится такая же как и в виндоус командной строке (пуск, выполнить, cmd))
если этот тест не пройдет, то просто перепишу пользовательский ввод(например, команда Input должна работать как раз так же, как и эти две процедуры, только бэкспейс и ескейп поддерживаться не будут)

ну вот видите. опять та же ситуация: то что я печатаю на выход чудесным образом превращается во вход так, вначале вывожу первую строку

AVR-DOS: Ready for commands

.
принимаю её обратно(как если бы пользователь её ввел):

get symbol:99
cget symbol:111
oget symbol:109
mget symbol:109
mget symbol:97
aget symbol:110
nget symbol:100
dget symbol:115
sget symbol:13

прослеживается слово commands(читая по вертикали). далее процесс повторяется:

get symbol:10
get symbol:48
0get symbol:48
0get symbol:48
0get symbol:48

начинает выводить строку: 0000>get symbol:10

как будто rx-tx закоротили

переписал процедуру ввода. должна работать 100%. иначе