Новый топик с Форт-подфорума (от Balancer -а)
[url=http://www.wrk.ru/tech/forum/2018/09/t104893--mysli-po-forth-biblioteke-pod-arduino-sovmestimye-platy.8165.html]Мысли по Forth-библиотеке под Arduino-совместимые платы[/url]

Dmitry Ponyatov интерактивная/программируемая консоль для встраиваемых устройств на базе МК STM32
[url=https://github.com/ponyatov/STM32FORTH]Виртуализованный Унифицированный Командный Интерфейс (ВУКИ)[/url]

P.S. И какие то ещё проекты есть в репозитории связанные с Форт тематикой.

От mak4444
[url=http://www.forth.org.ru/news/stm32f105MultiAdapter#0]stm32f105MultiAdapter[/url]
[code]
Проверялось на 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).
[/code]
[url=https://github.com/mak4444/stm32f105MultiAdapter]Проект на Github[/url]

[quote="Ilya"]А мультитаск в сочетании с прерываниями ещё не пробовали ?[/quote]
нет ещё, ибо
[quote="chu"]В вялотекущем режиме... [/quote]

[quote="chu"]В вялотекущем режиме продолжаю колупать [url=http://mecrisp.sourceforge.net/][b]mecrisp[/b][/url] на [url=http://wiki.stm32duino.com/index.php?title=Blue_Pill][b]stm32f103 bluepill[/b][/url] .
Попалось [url=https://hubstub.ru/stm32/82-vremya-vipolneniya-koda-stm32.html]ВРЕМЯ ВЫПОЛНЕНИЯ КОДА STM32[/url] .
Вдохновился.
Полистав [u]DDI0403D[/u]_arm_architecture_v7m_reference_manual.pdf
через пару дней выдал результат
......
[/quote]
Познавательно!
А мультитаск в сочетании с прерываниями ещё не пробовали ?

В вялотекущем режиме продолжаю колупать [url=http://mecrisp.sourceforge.net/][b]mecrisp[/b][/url] на [url=http://wiki.stm32duino.com/index.php?title=Blue_Pill][b]stm32f103 bluepill[/b][/url] .
Попалось [url=https://hubstub.ru/stm32/82-vremya-vipolneniya-koda-stm32.html]ВРЕМЯ ВЫПОЛНЕНИЯ КОДА STM32[/url] .
Вдохновился.
Полистав [u]DDI0403D[/u]_arm_architecture_v7m_reference_manual.pdf
через пару дней выдал результат
[code]
\
\ 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
[/code]
[code]
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.[/code]
[b]count-ticks.fs[/b]
[code]
?mem.
flash> : 00006800 free : 38912 bytes (9728 cells )
ram> : 200005E4
compile to ram
ok.
$5e4 $330 - . 692 ok.
[/code]
работает!
[code]
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.
[/code]
вот такия циклопы с кон-тиками... :)
ЗЫ. отредактировал. код причесал и приукрасил.

[url=https://github.com/oshnix/embedded_forth]Интерпретатор языка forth на C для линейки микроконтроллеров stm32F4[/url]
[code]
Интерпретатор языка forth на C для линейки микроконтроллеров stm32F4

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

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

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

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

[url=https://tuxotronic.org/post/mecrisp-forth/]Начало Mecrisp Forth[/url]
19 Nov 2017, 22:44

Статья про дизайн универсального и простого ассемблера для ARM.
Gang-Jeng Huang and Shiuh-Ku Weng 2014
[url=http://www.ijsps.com/uploadfile/2014/0523/20140523103301859.pdf]The Implementation of Simplified Universal Assembler in Forth Assembly Language.pdf[/url]

P.S. Чем то похож на обсуждавшийся "компилирующий ассемблер" от chess на местном форуме
и ассемблер для AVR в Алгоритм Билдере :)

на github опубликован AmrForth v7
[url=https://github.com/wa1tnr/amrforth-v7-F330]AmrForth v7[/url]

P.S. В репозитории данного разработчика есть и другие Форт проекты.
Найдено в обновленных данных из [url=https://github.com/ForthStar?tab=stars]ForthStar[/url]

[url=https://github.com/malyn/Enforth]EnForth[/url] (вокруг инфраструктуры Ардуино)
[code]
Использование библиотек Arduino должно быть как можно более простым.
Вы должны иметь возможность купить что-то из Adafruit, обернуть его библиотеку Arduino в интерфейсе внешних функций и получить немедленный доступ к оборудованию из Forth REPL.
Вся система должна была работать на устройстве.
Это долженбыть автономный Форт, которому требовался только последовательный терминал. [/code]

P.S. [url=http://michaelalynmiller.com/blog/2017/10/04/enforth/]Идея данной разработки[/url]

Небольшое демо-видно
[url=https://www.youtube.com/watch?v=dvTI3KmcZ7I]Mecrisp Forth on STM32 Microcontroller (blue pill)[/url]

[url=https://github.com/TG9541/stm8ef/wiki/STM8-eForth-Programming]STM8 eForth Programming[/url]
[url=https://github.com/TG9541/stm8ef/wiki/STM8S-Value-Line-Gadgets]STM8S Value Line Gadgets[/url]

[url=http://dominicusin.github.io/2017/11/15/forth.html]Domini's blog[/url]

Какой то Форт ресурс и с примерами на amForth и графикой через терминал (forth-sixel)
http://hub.darcs.net/pointfree