Интерпретатор языка forth на C для линейки микроконтроллеров stm32F4

Интерпретатор позволяет пользователям обрабатывать целочисленные данные, помещенные на стек forth.
Проект был сгенерирован с помощью STM32CubeMX для среды EWARM, в которой и разрабатывался.
В данный момент используется демонстрационная версия языка, в которой ввод осуществляется пользователем через консоль отладчика IDE. Для того, чтобы воспользоваться вводом программы из файла или иного места, достаточно:

    Переопределить стандартную функцию getchar своей.
    Заменить использование функции scanf в слове read_word любой другой функцией, принимающей указатель на char и записывающей по этому адресу нуль-терминированную строку (Не рекомендуется).

#Компиляция и запуск
В данный момент проект сконфигурирован для использования с платой Nucleo-STM32F429.
Для того, чтобы перенести его на другие устройства нужно:

    Отконфигурировать переферию любым удобным способом (Вручную, с помощью CubeMx, или воспользоваться шаблоном).
    Переопределить константы из файла main.h. В данный момент они выделяют 64КБ SRAM с конца оперативной памяти.

\
\ chu 20:17 07.07.2018
\
\ вдохновился тут
\ https://hubstub.ru/stm32/82-vremya-vipolneniya-koda-stm32.html
\

  $E0001004 constant DWT_CYCCNT   
  $E0001000 constant DWT_CONTROL   
  $E000EDFC constant SCB_DEMCR

\
   : #bits    ( #h #l -- #mask )
      0  rot                   ( #l 0  #h )
      1+ rot                   ( 0 #h+ #l )
     dup >r do shl %1 or loop  ( #   | r: #l )   
      r>  0 do shl       loop  ( #mask )
     immediate
     0-foldable
     ;
\
               \   TRCENA
   : dwt-enable?  ( -- f )  #24 bit scb_demcr bit@ ;
   : dwt-enable+            #24 bit scb_demcr bis! ;
   : dwt-enable-            #24 bit scb_demcr bic! ;
\
                \ CYCCNTENA
   : cyc-counter? ( -- f )  #0  bit dwt_control bit@ ;
   : cyc-counter+           #0  bit dwt_control bis! ;
   : cyc-counter-           #0  bit dwt_control bic! ;
\
   : ?cyc-counter ( -- f )    \ check if cycle counter enabled
     dwt_control @ dup
     #31 #28 #bits ( NUMCOMP  ) and 0= 0= swap
         #25  bit  ( NOCYCCNT ) and 0= and
     ;
\
   : count-ticks ( x ... 'addr -- #ticks )

     dwt-enable?  0= if
     dwt-enable+   then \ enable DWT

     ?cyc-counter 0= if
      cr ." no comparator support or cycle counter not supported" exit
                   then

     cyc-counter-       \ выключить счетчик
     0 dwt_cyccnt !     \ обнулить  счетчик
     cyc-counter+       \ включить  счетчик
     execute
     cyc-counter-       \ выключить счетчик
     dwt_cyccnt @       \ прочесть  счетчик
     ;
\
\   chu 14:49 08.07.2018
\   chu 12:52 10.07.2018

reset Mecrisp-Stellaris 2.4.4 for STM32F103 by Matthias Koch
usb>
  ok.
?mem.
flash> : 00006800     free : 38912 bytes (9728 cells )
ram>   : 20000330
compile to ram
  ok.

?mem.
flash> : 00006800     free : 38912 bytes (9728 cells )
ram>   : 200005E4
compile to ram
ok.
$5e4 $330 - . 692  ok.

  ok.
: cyc-loop 0 ?do loop ;  ok.
1 ' cyc-loop count-ticks . 67  ok.
2 ' cyc-loop count-ticks . 73  ok.
10 ' cyc-loop count-ticks . 121  ok.
0 ' cyc-loop count-ticks . 65  ok.
' nop count-ticks . 46  ok.
0 ' dup count-ticks . 49  ok.
' 1+ count-ticks . 46  ok.
' swap count-ticks . 49  ok.
' over count-ticks . 47  ok.
' rot count-ticks . 52  ok.
' drop count-ticks . 46  ok.
' + count-ticks . 46  ok.
' drop count-ticks . 46  ok.

Проверялось на Linux/64
Для независимости от платформы в для целевой компиляции использовалась виртуальная форт машина на СИ.

Контроллер stm32f105 (thumb2)
Для отладчика создается промежуточное ассемблерные представление
(файлы с суффиксом _AL) из исходнного кода на Форте (see SRC/).
Применяется инлайн подстановка с оптимизацией MetaCortex/SRC/macroopt.f
Переменная TMM_SIZE содержит максимальный размер инлайн подстановки.
TSET-OPT — включить оптимизацию
TDIS-OPT — отключить оптимизацию
Слова для словаря прописываются в отдельном файле Wortbirne.s

Далее собирается с помощью arm-none-eabi-gcc.
Под Eclipse можно отлаживать.
Взаимодействие с пользователем осуществляется посредством USB (VT100).
Сначала появляется меню выбора режима работы.
Пункт "FORTH (original)" — запуск Форт системы с изначальным состоянием переменных.

Работает компиляция в ОЗУ.
Для сохранения образа ОЗУ используется команда SAVE.
Пункт меню "FORTH (rest)" при старте — запуск Форт системы с восстановлением образа ОЗУ.

Пункт меню "CAN" — запуск CAN адаптера (lscan).