Автор |
Сообщение |
|
|
Заголовок сообщения: |
|
|
|
|
|
|
Добавлено: Чт дек 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
[quote="Kopa"]Форта для Симбиан ( на базе hForth ). через С/С++ на ASMе для ARM [/quote]
Зачем там
[code] $CODE 2,'W@',WAT,_SLINK ldrh r1, [tos] ;get the word mov tos, r1 ;bung back on the stack $NEXT [/code]
У меня [code] CODE W@ ( a - w) ldrh TOS, [TOS] NEXT ASMARM_END [/code] Работает
Еще [code] 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
[/code]
|
|
|
|
Добавлено: Чт дек 06, 2007 12:17 |
|
|
|
|
|
Заголовок сообщения: |
|
|
|
Немного погуглил и вот например вариант портирования
Форта для Симбиан ( на базе hForth ). через С/С++
на ASMе для ARM
http://gumbley.me.uk/epoc-forth.html
P.S. Странно, что на его никто не дал ссылку:).
Последня дата некоторых файлов в архиве ( 08.02.2000 г.)
Немного погуглил и вот например вариант портирования
Форта для Симбиан ( на базе hForth ). через С/С++
на ASMе для ARM
http://gumbley.me.uk/epoc-forth.html
P.S. Странно, что на его никто не дал ссылку:).
Последня дата некоторых файлов в архиве ( 08.02.2000 г.)
|
|
|
|
Добавлено: Чт дек 06, 2007 10:14 |
|
|
|
|
|
Заголовок сообщения: |
|
|
|
А в симбиане нативный маш код используется, или как в 5 палмосе ретранслятор из команд 68К или байт-кода ?
А в симбиане нативный маш код используется, или как в 5 палмосе ретранслятор из команд 68К или байт-кода ?
|
|
|
|
Добавлено: Вт дек 26, 2006 23:10 |
|
|
|
|
|
Заголовок сообщения: |
|
|
|
А зачем конкурировать ? Я свой Форт как раз и задумывал так,чтобы не иметь никаких проблем с интеграцией форт-машины и готовых mainstream решений.
Ну машинка уже есть, специально клавиатурный коммуникатор искал (с него и пишу), SDK тоже лежит, так что на новый год может будет первая версия интерпретатора байт-кода и CLI
А зачем конкурировать ? Я свой Форт как раз и задумывал так,чтобы не иметь никаких проблем с интеграцией форт-машины и готовых mainstream решений.
Ну машинка уже есть, специально клавиатурный коммуникатор искал (с него и пишу), SDK тоже лежит, так что на новый год может будет первая версия интерпретатора байт-кода и CLI
|
|
|
|
Добавлено: Вт дек 26, 2006 23:05 |
|
|
|
|
|
Заголовок сообщения: |
|
|
|
Цитата: Почему глухо? На с++ значит там можно писать, а на форте нет?
Замечу, что я не сказал, что на форте под симбиан нельзя писать. Я сказал, что под симбиан нет настолько развитых форт-систем, чтобы конкурировать с++.
[quote]Почему глухо? На с++ значит там можно писать, а на форте нет?[/quote]
Замечу, что я не сказал, что на форте под симбиан нельзя писать. Я сказал, что под симбиан нет настолько развитых форт-систем, чтобы конкурировать с++. :)
|
|
|
|
Добавлено: Ср дек 20, 2006 08:31 |
|
|
|
|
|
Заголовок сообщения: |
|
|
|
Почему глухо? На с++ значит там можно писать, а на форте нет? Спасибо, смеялся.
Сертификаты есть и у WinMobile ну и что?
Короче, SPF5 будет поддерживать ARM архитектуру, останется только запустить на симбиане и разобраться с системными вызовами.
Best Regards,
Dmitry Yakimov
Почему глухо? На с++ значит там можно писать, а на форте нет? Спасибо, смеялся.
Сертификаты есть и у 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, но очень не хочется возиться с
написанием полноценной интерактивной форт-системы.
Давно облизываюсь на Nokia E6x с симбианом, сейчас пойду попробую взять в кредит.
Хотелось бы иметь какой-нибудь on-board скриптовый язык, прежде всего
задумался о Форте (как о наименее ресурсоемком варианте).
Кто делает свой или использует готовый ?
Желательно полностью opensource/freeware -- есть риск что будет использоваться в
корпоративных задачах, желательно чтобы не было проблем с лицензированием.
ЗЫ: есть конечно вариант использовать мой FVM, но очень не хочется возиться с
написанием полноценной интерактивной форт-системы.
|
|
|
|
Добавлено: Вт дек 19, 2006 12:03 |
|
|
|
|