Forth и другие саморасширяющиеся системы программирования Locations of visitors to this page
Текущее время: Чт июл 25, 2024 20:51

...
Google Search
Forth-FAQ Spy Grafic

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




Начать новую тему Ответить на тему  [ Сообщений: 36 ]  На страницу Пред.  1, 2, 3
Автор Сообщение
 Заголовок сообщения: Re: Irbis Forth
СообщениеДобавлено: Пн янв 30, 2023 22:36 
Не в сети

Зарегистрирован: Пн янв 07, 2013 22:40
Сообщения: 2141
Благодарил (а): 8 раз.
Поблагодарили: 74 раз.
Hishnik писал(а):
Придумалось слово ->.
Работает так:
x -> y - пересылает ячейку с адреса x в ячейку с адресом y. То же, что x @ y !

Analog TO for Variables? :)


Вернуться к началу
 Профиль Отправить личное сообщение  
Ответить с цитатой  
 Заголовок сообщения: Re: Irbis Forth
СообщениеДобавлено: Вт янв 31, 2023 00:21 
Не в сети
Administrator
Administrator
Аватара пользователя

Зарегистрирован: Вт май 02, 2006 22:48
Сообщения: 7966
Благодарил (а): 25 раз.
Поблагодарили: 144 раз.
KPG писал(а):
Analog TO for Variables?

Именно. Тут интересно, что при 64-битной разрядности VARIABLE и FLOAT можно перемещать так одним и тем же словом. Ну и выглядит приятно.


Вернуться к началу
 Профиль Отправить личное сообщение  
Ответить с цитатой  
 Заголовок сообщения: Re: Irbis Forth
СообщениеДобавлено: Вт янв 31, 2023 17:56 
Не в сети

Зарегистрирован: Сб ноя 20, 2021 06:51
Сообщения: 41
Откуда: Южный Урал
Благодарил (а): 1 раз.
Поблагодарили: 2 раз.
Штука нужная, жду добавления.


Вернуться к началу
 Профиль Отправить личное сообщение  
Ответить с цитатой  
 Заголовок сообщения: Re: Irbis Forth
СообщениеДобавлено: Вт янв 31, 2023 23:28 
Не в сети

Зарегистрирован: Пт июн 06, 2008 14:21
Сообщения: 128
Откуда: Карелия
Благодарил (а): 1 раз.
Поблагодарили: 4 раз.
Hishnik писал(а):
KPG писал(а):
Analog TO for Variables?

Именно. Тут интересно, что при 64-битной разрядности VARIABLE и FLOAT можно перемещать так одним и тем же словом. Ну и выглядит приятно.

Так это приятное слово было уже в SPF.. в локалах

\ -----64-----
: LocalsRecDoes@4 ( -- u )
2 DUP uLocalsCnt +!
uLocalsCnt @ 1-
,
DOES> @ CompileLocalRec S" 2@ " EVALUATE
;

: CompileLocal2! \ n --
CompileLocalRec
S" 2! " EVALUATE
;

: LocalsDoes2@
uLocalsCnt @ 1+ ,
\ CompileLocalRec
2 uLocalsCnt +!

DOES> @ CompileLocalRec S" 2@ " EVALUATE
;


: ;; POSTPONE ; ; IMMEDIATE


: ^
' >BODY @
CompileLocalRec
; IMMEDIATE


: --> ' >BODY @ CompileLocal! ; IMMEDIATE
: ->> ' >BODY @ CompileLocal2! ; IMMEDIATE

: ->
>IN @
NextWord + 1- C@ [CHAR] % =
SWAP >IN !
IF POSTPONE ->>
ELSE
POSTPONE -->
THEN
; IMMEDIATE


Вернуться к началу
 Профиль Отправить личное сообщение  
Ответить с цитатой  
 Заголовок сообщения: Re: Irbis Forth
СообщениеДобавлено: Ср фев 01, 2023 00:10 
Не в сети
Administrator
Administrator
Аватара пользователя

Зарегистрирован: Вт май 02, 2006 22:48
Сообщения: 7966
Благодарил (а): 25 раз.
Поблагодарили: 144 раз.
F-MAP писал(а):
Так это приятное слово было уже в SPF.. в локалах

Так очень хорошо. Значков вообще не так много, что-то будет и перекрываться. Но тут что-то накручено лишнего, тут попроще сделано. Просто 8 байт пересылаются из адреса в адрес.


Вернуться к началу
 Профиль Отправить личное сообщение  
Ответить с цитатой  
 Заголовок сообщения: Re: Irbis Forth
СообщениеДобавлено: Чт фев 02, 2023 22:15 
Не в сети
Administrator
Administrator
Аватара пользователя

Зарегистрирован: Вт май 02, 2006 22:48
Сообщения: 7966
Благодарил (а): 25 раз.
Поблагодарили: 144 раз.
Сборка с ->

https://drive.google.com/file/d/1cw5WJInn4dpp-7KXdtfDN3ogLHhM8f5I/view?usp=sharing


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

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


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

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


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

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