[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

Статья [url=http://hackaday.com/2017/01/27/forth-the-hackers-language/]Forth: The Hacker’s Language[/url]
by: Elliot Williams
January 27, 2017

[url=http://bluehell.electro-music.com/x4th/]x4th is a Forth like cross compiler running under Windows targeting Microchip PIC processors. x4th compiles Forth sources into an assembly file, not directly into target code.[/url]
Last page update : 2011-11-05

[code]
Directly supported processors for the current package are :
18c242
18c252
18c442
18c452

18f242
18f252
18f442
18f452

18f6527
18f6622
18f6627
18f6722
[/code]

Ещё [url=http://tesla.zabotavdome.ru/forth.html]Forth для PIC[/url]
21.12.2016

P.S. [url=https://www.superjob.ru/resume/programmist-mikrokontrollerov-37391084.html]Из резюме преподавателя ГБПОУ МГОК, Москва[/url]
[code]
1. Для использования в коммерческих проектах и работы со студентами реализован язык программирования форт (forth) для микроконтроллеров серии PIC18F. Ядро форт-системы выполнено на ассемблере, концептуально выдержано, масштабируемо под любые задачи. Схемы, описания, примеры, доступны по ссылке:

http://tesla.zabotavdome.ru/forth.html

Программно-аппаратный комплекс Форт позволяет выполнять подключение к конечному устройству с консоли по rs232, производить финальное программирование, устанавливать глобальные параметры, контролировать работу готового изделия в реальном времени и передавать сведения о состоянии устройств по сети на узел управления. Память программ энергонезависима, все новые форт-команды и определения, введённые с консоли, доступны для исполнения после выключения устройства.
...
[/code]