Forth и другие саморасширяющиеся системы программирования Locations of visitors to this page
Текущее время: Ср янв 20, 2021 00:21

...
Google Search
Forth-FAQ Spy Grafic

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




Ответить
Имя пользователя:
Заголовок:
Текст сообщения:
Введите текст вашего сообщения. Длина сообщения в символах не более: 60000

Размер шрифта:
Цвет шрифта
Настройки:
BBCode ВКЛЮЧЕН
[img] ВЫКЛЮЧЕН
[flash] ВЫКЛЮЧЕН
[url] ВКЛЮЧЕН
Смайлики ВЫКЛЮЧЕНЫ
Отключить в этом сообщении BBCode
Не преобразовывать адреса URL в ссылки
Вопрос
Теперь гостю придется вводить здесь пароль. Не от своей учетной записи, а ПАРОЛЬ ДЛЯ ГОСТЯ, получить который можно после регистрации на форуме через ЛС.:
Этот вопрос предназначен для выявления и предотвращения автоматических регистраций.
   

Обзор темы - Symbian
Автор Сообщение
  Заголовок сообщения:   Ответить с цитатой
На всякий случай:)
Здесь есть Ассемблер и дизасемблер для ARM на Форте.

http://home.clara.net/tixy/source/index ... 0Assembler
Сообщение Добавлено: Чт дек 06, 2007 13:08
  Заголовок сообщения:   Ответить с цитатой
Kopa писал(а):
Форта для Симбиан ( на базе hForth ). через С/С++
на ASMе для ARM


Зачем там
Код:
      $CODE   2,'W@',WAT,_SLINK
      ldrh    r1, [tos]               ;get the word
      mov     tos, r1                 ;bung back on the stack
      $NEXT


У меня
Код:
CODE W@ ( a - w)
        ldrh   TOS, [TOS]
   NEXT
ASMARM_END

Работает

Еще
Код:
CODE >
   swp   TOS,TOS,[DSTK]
CODL <
        dpop   r1
        subs   TOS,r1,TOS        @ TOS = a-b  -- msbit set if a is less than b
CODL 0<
        mov   TOS,TOS,asr #31    @ turn msbit into 0xffff or 0x0000
   NEXT
ASMARM_END

CODE U>
   swp   TOS,TOS,[DSTK]
CODL U<
        dpop   r1
        subs   TOS,r1,TOS      @ TOS = a-b  -- carry set if a is less than b
        sbc   TOS,TOS,TOS
   NEXT
ASMARM_END

CODE =  ( a b - f)
        dpop   R1
        eor   TOS, R1 TOS
CODL 0=
   subs   TOS, TOS, #1
   sbc   TOS, TOS, TOS
   NEXT
ASMARM_END

CODE 2R>
   str   TOS, [DSTK,#-4]! \ DUP
   ldr   TOS, [RSTK], #4
CODL R>SWAP
   str   TOS, [DSTK,#-4]! \ DUP
   ldr   TOS, [RSTK], #4
CODL SWAP
   swp   TOS, TOS, [DSTK]
   NEXT
ASMARM_END

CODE OVER ( n1 n2 -- n1 n2 n1 )
   str   TOS, [DSTK,#-4]!
        ldr   TOS, [DSTK, #4]
   NEXT
ASMARM_END

CODE ?DUP
        tst   TOS, TOS
        strne   TOS, [DSTK, #-4]!  @ only if TOS is non-zero do we dup it
   NEXT
ASMARM_END

CODE UM*  ( u1 u2 - ud)
        ldr   r1, [DSTK]
        umull   r0, r3, TOS, r1   @  r3:r2 := TOS * r1
        str   r0, [DSTK]   @ store ls32bits on stack
        mov   TOS, r3      @ TOS := ms32bits
   NEXT
ASMARM_END

CODE M*  ( n1 n2 - d) \ We probably want a 32x32-->64 signed multiply also
        ldr   r1, [DSTK]
        smull   r0, r3, TOS, r1   @  r3:r2 := TOS * r1
        str   r0, [DSTK]   @ store ls32bits on stack
        mov   TOS, r3      @ TOS := ms32bits
   NEXT
ASMARM_END

Сообщение Добавлено: Чт дек 06, 2007 12:17
  Заголовок сообщения:   Ответить с цитатой
Немного погуглил и вот например вариант портирования
Форта для Симбиан ( на базе hForth ). через С/С++
на ASMе для ARM

http://gumbley.me.uk/epoc-forth.html

P.S. Странно, что на его никто не дал ссылку:).
Последня дата некоторых файлов в архиве ( 08.02.2000 г.)
Сообщение Добавлено: Чт дек 06, 2007 10:14
  Заголовок сообщения:   Ответить с цитатой
А в симбиане нативный маш код используется, или как в 5 палмосе ретранслятор из команд 68К или байт-кода ?
Сообщение Добавлено: Вт дек 26, 2006 23:10
  Заголовок сообщения:   Ответить с цитатой
А зачем конкурировать ? Я свой Форт как раз и задумывал так,чтобы не иметь никаких проблем с интеграцией форт-машины и готовых mainstream решений.

Ну машинка уже есть, специально клавиатурный коммуникатор искал (с него и пишу), SDK тоже лежит, так что на новый год может будет первая версия интерпретатора байт-кода и CLI
Сообщение Добавлено: Вт дек 26, 2006 23:05
  Заголовок сообщения:   Ответить с цитатой
Цитата:
Почему глухо? На с++ значит там можно писать, а на форте нет?

Замечу, что я не сказал, что на форте под симбиан нельзя писать. Я сказал, что под симбиан нет настолько развитых форт-систем, чтобы конкурировать с++. :)
Сообщение Добавлено: Ср дек 20, 2006 08:31
  Заголовок сообщения:   Ответить с цитатой
Почему глухо? На с++ значит там можно писать, а на форте нет? Спасибо, смеялся.
Сертификаты есть и у WinMobile ну и что? :)

Короче, SPF5 будет поддерживать ARM архитектуру, останется только запустить на симбиане и разобраться с системными вызовами.


Best Regards,
Dmitry Yakimov
Сообщение Добавлено: Вт дек 19, 2006 21:06
  Заголовок сообщения:  Re: Symbian  Ответить с цитатой
Сразу скажу, что я сам под него не писал, и в ближайшее время вряд ли займусь. Но думаю, что лучше таки заморочиться. С симбианом не все так гладко. :? Я бы виртуальную форт-машину реализовал, поскольку как раз с лицензированием, по отзывам знакомых, у симбиана завязаны доверенные сертификаты ПО или что-то такое (это попытка защититься от пиратов :) )... И программировать под него на родном квази-С++ языке довольно неудобно. А про Форт под симбиан имхо вообще глухо :(
Сообщение Добавлено: Вт дек 19, 2006 13:21
  Заголовок сообщения:  Symbian  Ответить с цитатой
Давно облизываюсь на Nokia E6x с симбианом, сейчас пойду попробую взять в кредит.

Хотелось бы иметь какой-нибудь on-board скриптовый язык, прежде всего
задумался о Форте (как о наименее ресурсоемком варианте).

Кто делает свой или использует готовый ?
Желательно полностью opensource/freeware -- есть риск что будет использоваться в
корпоративных задачах, желательно чтобы не было проблем с лицензированием.

ЗЫ: есть конечно вариант использовать мой FVM, но очень не хочется возиться с
написанием полноценной интерактивной форт-системы.
Сообщение Добавлено: Вт дек 19, 2006 12:03

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


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