Irbis Forth

KPG

Hishnik писал(а):

Придумалось слово ->.
Работает так:
x -> y - пересылает ячейку с адреса x в ячейку с адресом y. То же, что x @ y !

Analog TO for Variables?

Hishnik

KPG писал(а):

Analog TO for Variables?

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

pk-fr-76-2

Штука нужная, жду добавления.

F-MAP

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

Hishnik

F-MAP писал(а):

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

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

Hishnik

Сборка с ->

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

Irbis Forth

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