Forth и другие саморасширяющиеся системы программирования Locations of visitors to this page
Текущее время: Вт авг 22, 2017 11:15

...
Google Search
Forth-FAQ Spy Grafic

Часовой пояс: UTC + 3 часа [ Летнее время ]




Начать новую тему Ответить на тему  [ Сообщений: 146 ]  На страницу Пред.  1 ... 6, 7, 8, 9, 10
Автор Сообщение
 Заголовок сообщения: Re: Применение Форта для ARM, AVR, MSP430, PIC ...
СообщениеДобавлено: Сб сен 03, 2016 20:12 
Не в сети

Зарегистрирован: Пн янв 07, 2013 22:40
Сообщения: 680
Благодарил (а): 3 раз.
Поблагодарили: 28 раз.
Ilya писал(а):
Привет! Ты не пробовал работать с SD/MMC картами через SPI?

Если вопрос ко мне, то нет не пробовал.
P.S. Может поможет в чём то byvac forth lib или ещё кто что ответит :)
P.P.S, Тоже интересная разработка, но уже Forth including Tachyon for Propeller chip


Вернуться к началу
 Профиль Отправить личное сообщение  
Ответить с цитатой  
 Заголовок сообщения: Re: Применение Форта для ARM, AVR, MSP430, PIC ...
СообщениеДобавлено: Сб сен 03, 2016 23:38 
Не в сети

Зарегистрирован: Чт ноя 23, 2006 00:44
Сообщения: 289
Откуда: СПб
Благодарил (а): 5 раз.
Поблагодарили: 4 раз.
KPG писал(а):
Ilya писал(а):
Привет! Ты не пробовал работать с SD/MMC картами через SPI?

Если вопрос ко мне, то нет не пробовал.
P.S. Может поможет в чём то byvac forth lib или ещё кто что ответит :)
P.P.S, Тоже интересная разработка, но уже Forth including Tachyon for Propeller chip

Данкишён! :D Пороюсь.


Вернуться к началу
 Профиль Отправить личное сообщение  
Ответить с цитатой  
 Заголовок сообщения: Re: Применение Форта для ARM, AVR, MSP430, PIC ...
СообщениеДобавлено: Ср сен 07, 2016 05:16 
Не в сети

Зарегистрирован: Чт ноя 23, 2006 00:44
Сообщения: 289
Откуда: СПб
Благодарил (а): 5 раз.
Поблагодарили: 4 раз.
Мдя!
Или у меня руки не из того места растут или .... изначально отформатировал карту в Винде (для "чистоты" эксперимента) и получил загрузочный сектор не по букварю. :dmad; . Переформатировал в Линухе и вуаля! :D


Вернуться к началу
 Профиль Отправить личное сообщение  
Ответить с цитатой  
 Заголовок сообщения: Re: Применение Форта для ARM, AVR, MSP430, PIC ...
СообщениеДобавлено: Пт окт 07, 2016 22:39 
Не в сети

Зарегистрирован: Чт ноя 23, 2006 00:44
Сообщения: 289
Откуда: СПб
Благодарил (а): 5 раз.
Поблагодарили: 4 раз.
Привет!
Ты пробовал внешние прерывания?
Просто возникла проблема! :( При отладке в режиме (compiletoRAM) - всё нормально, а при записи во Flash начинается полный попец (бесконечный вызов обработчика прерывания). Методом "научного тыка" удалось установить, что если после строчки ... EXTI_PR bis! выполнить любой код ( cr ." some code" || var @ drop || nop nop, ...), то нормализуется!
Может свежим взглядом посмотришь?

Код:
\ stm32lf411
\ tft-touch.fs
\ Ilya Abdrahimov ilya73@inbox.ru
\ Controller: ADS7843/TSC2046
\ Touch_CLK -- PA13
\ Touch_CS -- PA14
\ Touch_DIN -- PA15
\ Touch_DOUT -- PA11
\ Touch_IRQ -- PD2

\ compiletoflash
1 13 lshift constant T_CLK \
1 14 lshift constant T_CS \
1 15 lshift constant T_DIN \
1 11 lshift constant T_DOUT \
1 2  lshift constant T_IRQ \

: gpioa-low ( n -- ) 16 lshift GPIOA_BSRR bis! ;
: gpioa-high ( n -- ) GPIOA_BSRR bis! ;

\ There are touch ?
0 variable touch?
0 variable touch_x
0 variable touch_y

\ Посылаем байт в индикатор
\ Submitting byte indicator
: wr-touch ( c -- )
8 0 do
T_CLK gpioa-high 1 us
dup i lshift $80 and
   if T_DIN gpioa-high
   else T_DIN gpioa-low
   then
T_CLK gpioa-low  1 us
loop
drop
;

\ Принимаем данные (12 бит) из индикатора
\ Receiving data (12 bits) from the indicator
: rd-touch ( -- n )
0
12 0 do
   T_CLK gpioa-high 1 us
   1 lshift
   T_DOUT gpioa $10 + bit@ if  1 or then
   T_CLK gpioa-low  1 us
loop
;

: _read-touch ( c -- n )
T_CS gpioa-low
wr-touch
5 ms
rd-touch
T_CS gpioa-high
;

: _get-touch-xy ( -- x y z )
$98 _read-touch   \ читаем x
$d8 _read-touch \ читаем y
$b8 _read-touch   \ z1
;

: init-touch-gpio
$ff000000 gpioa bic!
$54000000 gpioa bis!
\ 1 T_IRQ 2* lshift gpiod $c + bis! \ T_IRQ pull-up
\ gpioa_afrl @ $ffffff0f and gpioa_afrl !
;

: scale-x
970 - 399 * 40 970 - /
;

: scale-y
95 - 239 * 956 95 - /
;

: irq-touch
_get-touch-xy 0 > if scale-y touch_y ! scale-x touch_x ! true touch? ! else 2drop false touch? ! then
4 EXTI_PR bis!
nop nop   \  Here it helped !?
;

: get-touch-xy touch_x @ touch_y @ false touch? ! ;

: init-touch
['] irq-touch irq-exti2 !
init-touch-gpio
1 14 lshift RCC_APB2ENR bis!    \ Syscfg enable
%0011 8 lshift SYSCFG_EXTICR1 bis!   \ EXTI2
1 2 lshift EXTI_FTSR bis!   \ прерывание по спаду
1 2 lshift EXTI_RTSR bic!   \ прерывание по спаду
8 nvic-enable      \ EXTI2

T_CS gpioa-low
T_CLK gpioa-high
T_CLK gpioa-low
\ $d8 wr-touch
1 2 lshift EXTI_IMR bis!   \ EXTI2 enable
;
compiletoram
\ : lcd-ud.r ( n1 n -- ) >r n>s r> over - 0 ?do #32 lcd-emit loop lcd-type ;
\ Sample
\ : .xy
\ get-touch-xy ( 2dup)  pixel
\ 3 3 setxy swap 3 lcd-ud.r 32 lcd-emit 3 lcd-ud.r
\ ;
\ : .xy get-touch-xy ( 2dup pixel) cr swap ." x=" . ." y=" . ;

\ 10 variable per
\ : test
\ lcd-init clrscn green fgcolor !
\ init-touch
\ cr ." start"
\ begin
   \ per @  ms
\   touch? @ if .xy then
\ key?
\ until
\ ;



Вернуться к началу
 Профиль Отправить личное сообщение  
Ответить с цитатой  
 Заголовок сообщения: Re: Применение Форта для ARM, AVR, MSP430, PIC ...
СообщениеДобавлено: Пт дек 23, 2016 17:52 
Не в сети

Зарегистрирован: Пн янв 07, 2013 22:40
Сообщения: 680
Благодарил (а): 3 раз.
Поблагодарили: 28 раз.
Просматривая GitHub по ключеавому слову Forth :)
увидел и такой проект ассемблера для AVR с возможностью заливки файлов.

P.S. У автора обозначен такой список хотелок (в большей степени не реализованный)
Код:
ввод-вывод hex-файлов - 11.01.2010 ок
дизассемблер AVR - 12.02.2010 ок 7.03.2010 ок
ассемблер AVR - 2.04.2010 ок 17.04.2010 ок
битовые слова - 1.08.2010-12.08.2010 ок 28.08.2010 ок
сборные слова - 12.08.2010 -30.08.2010
программатор - 30.12.2010 ок
xMega -
USB программатор -
отладчик -
мультизадачность -
----------------------   DC-AC,дизель ----------
симулятор -
forth8 -
оптимизатор+сборщик мусора -
forth16 -
GUI -
IDE -
helper -
языки -


Вернуться к началу
 Профиль Отправить личное сообщение  
Ответить с цитатой  
 Заголовок сообщения: Re: Применение Форта для ARM, AVR, MSP430, PIC ...
СообщениеДобавлено: Сб дек 24, 2016 17:43 
Не в сети

Зарегистрирован: Пн янв 07, 2013 22:40
Сообщения: 680
Благодарил (а): 3 раз.
Поблагодарили: 28 раз.
Проект замены сегментного индикатора на мультиметре Fluke 8050A на LCD 320x240 на STM32F103


Вернуться к началу
 Профиль Отправить личное сообщение  
Ответить с цитатой  
 Заголовок сообщения: Re: Применение Форта для ARM, AVR, MSP430, PIC ...
СообщениеДобавлено: Вс янв 08, 2017 19:44 
Не в сети

Зарегистрирован: Пн янв 07, 2013 22:40
Сообщения: 680
Благодарил (а): 3 раз.
Поблагодарили: 28 раз.
KPG писал(а):
Просматривая GitHub по ключеавому слову Forth :)
увидел и такой проект ассемблера для AVR с возможностью заливки файлов.

Эта же новость на wiku сайте forth.org.ru c комментариями от автора.


Вернуться к началу
 Профиль Отправить личное сообщение  
Ответить с цитатой  
 Заголовок сообщения: Re: Применение Форта для ARM, AVR, MSP430, PIC ...
СообщениеДобавлено: Пн янв 16, 2017 03:48 
Не в сети

Зарегистрирован: Пн янв 07, 2013 22:40
Сообщения: 680
Благодарил (а): 3 раз.
Поблагодарили: 28 раз.
Ещё Forth для PIC
21.12.2016


Вернуться к началу
 Профиль Отправить личное сообщение  
Ответить с цитатой  
 Заголовок сообщения: Re: Применение Форта для ARM, AVR, MSP430, PIC ...
СообщениеДобавлено: Сб янв 21, 2017 14:06 
Не в сети

Зарегистрирован: Пн янв 07, 2013 22:40
Сообщения: 680
Благодарил (а): 3 раз.
Поблагодарили: 28 раз.
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.
Last page update : 2011-11-05

Код:
Directly supported processors for the current package are :
    18c242
    18c252
    18c442
    18c452

   18f242
    18f252
    18f442
    18f452

    18f6527
    18f6622
    18f6627
    18f6722


Вернуться к началу
 Профиль Отправить личное сообщение  
Ответить с цитатой  
 Заголовок сообщения: Re: Применение Форта для ARM, AVR, MSP430, PIC ...
СообщениеДобавлено: Пт янв 27, 2017 13:21 
Не в сети

Зарегистрирован: Пн янв 07, 2013 22:40
Сообщения: 680
Благодарил (а): 3 раз.
Поблагодарили: 28 раз.
Статья Forth: The Hacker’s Language
by: Elliot Williams
January 27, 2017


Последний раз редактировалось KPG Пн фев 27, 2017 23:01, всего редактировалось 3 раз(а).

Вернуться к началу
 Профиль Отправить личное сообщение  
Ответить с цитатой  
 Заголовок сообщения: Re: Применение Форта для ARM, AVR, MSP430, PIC ...
СообщениеДобавлено: Сб апр 08, 2017 02:12 
Не в сети

Зарегистрирован: Пн янв 07, 2013 22:40
Сообщения: 680
Благодарил (а): 3 раз.
Поблагодарили: 28 раз.
Какой то Форт ресурс и с примерами на amForth и графикой через терминал (forth-sixel)
http://hub.darcs.net/pointfree


Вернуться к началу
 Профиль Отправить личное сообщение  
Ответить с цитатой  
Показать сообщения за:  Поле сортировки  
Начать новую тему Ответить на тему  [ Сообщений: 146 ]  На страницу Пред.  1 ... 6, 7, 8, 9, 10

Часовой пояс: UTC + 3 часа [ Летнее время ]


Кто сейчас на конференции

Сейчас этот форум просматривают: нет зарегистрированных пользователей и гости: 1


Вы не можете начинать темы
Вы можете отвечать на сообщения
Вы не можете редактировать свои сообщения
Вы не можете удалять свои сообщения
Вы не можете добавлять вложения

cron
Powered by phpBB © 2000, 2002, 2005, 2007 phpBB Group
phpBB сборка от FladeX // Русская поддержка phpBB