Редактирование: R@

'''R@''' (извлечь возврат, читается «ар-извлечь») — стандартное слово [[Каллисто]].
 R@             ( −− D )                             Скопировать значение D со стека возвратов.
Копирует верхнее 16-битное целое со знаком из [[Стек возвратов Каллисто|стека возвратов]] в [[Стек данных|стек данных]].

Если вам нужно достать со [[Стек возвратов Каллисто|стека возвратов]] беззнаковое целое, используйте [[слово I]].

== Ввод слова R@ ==
В [[Режим ЛАТ|режиме ЛАТ]] нажмите [[Клавиша ×|{{Серая клавиша|×}}]]  &nbsp; [[Клавиша P|{{Синяя клавиша|P}}]] [[Клавиша ИП|{{Чёрная клавиша|ИП}}]]

Эти нажатия оставляют клавиатуру в [[Режим NUM|режиме NUM]].

== R@ в стандарте ANS Forth ==
<PRE>
 6.1.2070   R@                                "r-fetch"                     CORE
        Интерпретация: Семантика интерпретации для этого слова не определена.

        Выполнение: ( -- x )  ( R:  x -- x )
            Копирует x из стека возвратов на стек данных.

        См.: 3.2.3.3 Стек возвратов, 6.1.0580 >R, 6.1.2060 R>, 6.2.0340 2>R, 
            6.2.0410 2R>, 6.2.0415 2R@.
</PRE>

== История ==
=== R@ в предыдущем стандарте Forth-83 (англ.) ===
      R@           -- 16b                        C,79         "r-fetch"
           16b is a copy of the top of the return stack.

=== R@ в стандарте Forth-79 (англ.) ===
 R@             -- n                          C,228        "r-fetch"
     Copy the number on top of the return stack to the data stack.

=== R в fig-FORTH Release 1 glossary, май 1979 (англ.) ===
 R               ---  n
        Copy the top of the return stack to the computation stack.

== Реализация ==
Слово R@ в ФОРТ-ЕС и FORTH ИТЭФ было [[примитив]]ом. Вот его описание и определение в ФОРТ-ЕС:
<PRE>
R@       К   ->W СКОПИРОВАТЬ ВЕРШИНУ СТЕКА ВОЗВРАТОВ             9

                      Экран номер 9
( 31.03.86   DUP ?DUP DROP SWAP OVER >R R> R@ RDROP ROT )

CODE R@    ( ->W)  RW1 RPULL, PUSHRW1 B, END-CODE
</PRE>
В FORTH ИТЭФ [[примитив]] R@ назывался R и также был синонимом [[Слово I|слова I]]. Вот его определение:
<PRE>
            HEAD     201Q,,311Q,I                         ; I
  RR$:      PUSH [BP]
  Z$:       NEXT

            HEAD     201Q,,322Q,R                         ; R
            JMP  RR$
</PRE>

== Ссылки ==
* {{Исходник|RFetch|R@}}
* См. слова [[R⟩|R&gt;]], [[⟩R|&gt;R]], [[RDROP]], [[UNLOOP]], [[Слово I|I]], [[Слово J|J]] и [[Слово K|K]]
* Слово [http://forth.sourceforge.net/standard/dpans/dpans6.htm#6.1.2070 R@ (r-fetch)] в стандарте ANS Forth ''(англ.)''
* Слово [http://forth-standard.org/standard/core/RFetch R@ (r-fetch)] в черновике Forth 200x ''(англ.)''
* [http://gudleifr.h1.ru/cgi-bin/pilo.cgi?FL=../g9.txt&IS=\6.PERWOISTOTNIKI\LEO%20BRODIE%20STARTING%20FORTH\05.OPERAZII%20NAD%20ZELYMI%20TISLAMI ОПЕРАЦИИ НАД ЦЕЛЫМИ ЧИСЛАМИ] в книге [http://gudleifr.h1.ru/cgi-bin/pilo.cgi?FL=../g9.txt&IS=\6.PERWOISTOTNIKI\LEO%20BRODIE%20STARTING%20FORTH Л.Броуди «Начальный курс программирования на языке Форт»]
* [http://www.forth.com/starting-forth/sf5/sf5.html The Philosophy of Fixed Point] в книге [http://www.forth.com/starting-forth/ Leo Brodie Starting Forth] ''(англ.)''
* [http://www.forth.com/starting-forth/sf6/sf6.html Throw It For a Loop] в книге [http://www.forth.com/starting-forth/ Leo Brodie Starting Forth] ''(англ.)''


{{нет иллюстраций}}
{{заготовка}}
[[Категория:Слова Каллисто]]
[[Категория:Примитивы]]
[[Категория:Операции со стеком возвратов Каллисто]]
[[Категория:Стандартные слова]]
[[Категория:1994 CORE]]
@@ Строка 36: / Строка 36: @@
 == Реализация ==
-<pre>
-JFR2:           KRMA RME ∗ KRM5 + M0
-                 32768 −
-                 FX>=0 FROMR1
-                 FANS − KM3  KGOTO9
-FROMR1:         RM0 KM3  KGOTO9
-;#RFetch
-; R@               ( −− D )                             Скопировать значение D со стека возвратов.
-LRAT:           .DB     2
-                 .TEXT   "R@"                    ; ( −− n )
-                 .DW     LFROMR
-RAT:            .DW     JR
-JR:             RM2 MA M5  GOTO JFR2            ; Тоже, что и I −− но для целых со знаком.
-</pre>
-Реализация из SP-Forth 4.20:
-<pre>
-CODE R@ \ 94
-\ Исполнение: ( -- x ) ( R: x -- x )
-\ Интерпретация: семантика в режиме интерпретации неопределена.
-     LEA EBP, -4 [EBP]
-     MOV [EBP], EAX
-     MOV EAX, 4 [ESP]
-     RET
-END-CODE
-</pre>
-=== Советская реализация ===
 Слово R@ в ФОРТ-ЕС и FORTH ИТЭФ было [[примитив]]ом. Вот его описание и определение в ФОРТ-ЕС:
 <PRE>
@@ Строка 100: / Строка 72: @@
 [[Категория:Стандартные слова]]
 [[Категория:1994 CORE]]
-[[Категория:2012 CORE]]