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

'''&gt;R''' (на стек возвратов, читается «на ар») — стандартное слово [[Каллисто]].
 >R             ( d −− )                             Перенести d на стек возвратов.
Переносит 16-битное число из [[Стек данных|стека данных]] в [[Стек возвратов Каллисто|стек возвратов]].

== Ввод слова &gt;R ==
В [[Режим NUM|режиме NUM]] последовательно нажмите четыре клавиши [[Клавиша F|{{Оранжевая клавиша|F}}]] [[Клавиша ИП|{{Чёрная клавиша|ИП}}]] &nbsp; [[Клавиша Р-ГРД-Г|{{Чёрная клавиша|Р-ГРД-Г}}]] [[Клавиша ×|{{Серая клавиша|×}}]]

Для возврата в [[режим NUM]] нажмите [[Клавиша P|синюю клавишу {{Синяя клавиша|P}}]].

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

        Выполнение: ( x -- )  ( R:  -- x )
            Перемещает x на стек возвратов.

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

== История ==
В Форте [[Стек возвратов Каллисто|стек возвратов]] часто использовался, как удобное и быстрое промежуточное хранилище для чисел со [[Стек данных|стека данных]]. Для фортовских 16-битных целых этот трюк всё ещё действует, однако в [[Каллисто]] [[стек данных]] хранит [[Десятичное число|десятичные числа]]. Поэтому в [[Каллисто]] подобный трюк может привести к потере точности и не рекомендуется.

=== &gt;R в предыдущем стандарте Forth-83 (англ.) ===
      >R           16b --                        C,79            "to-r"
           Transfers 16b to the return stack.  See  "9.3 Return Stack"

=== &gt;R в стандарте Forth-79 (англ.) ===
 >R             n --                          C,200           "to-r"
     Transfer n to the return stack.   Every >R must be balanced by
     a  R> in the same control structure nesting level of a  colon-
     definition.

=== &gt;R в fig-FORTH Release 1 glossary, май 1979 (англ.) ===
 >R            n  ---                         C,L0
        Remove a number from the computation stack and place as the most
        accessable on the return stack. Use should be balanced with R> in
        the same definition.

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

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

CODE >R ( W-> )  RW1 POP,   RW1 RPUSH,   RNEXT BR, END-CODE
</PRE>
В FORTH ИТЭФ слово &gt;R также было [[примитив]]ом, вот его определение:
<PRE>
            HEAD     202Q,'>',322Q,TOR                    ; >R
            SUB  BP, 2
            POP  [BP]
            NEXT
</PRE>

== Ссылки ==
* {{Исходник|toR|&gt;R}}
* См. слова [[R@]], [[R⟩|R&gt;]], [[RDROP]], [[UNLOOP]], [[Слово I|I]], [[Слово J|J]] и [[Слово K|K]]
* Слово [http://forth.sourceforge.net/standard/dpans/dpans6.htm#6.1.0580 &gt;R (to-r)] в стандарте ANS Forth ''(англ.)''
* Слово [http://forth-standard.org/standard/core/toR &gt;R (to-r)] в черновике 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] ''(англ.)''


{{нет иллюстраций}}
{{заготовка}}
[[Категория:Слова Каллисто]]
[[Категория:Примитивы]]
[[Категория:Операции со стеком возвратов Каллисто]]
[[Категория:Стандартные слова]]
[[Категория:1994 CORE]]
[[Категория:2012 CORE]]
@@ Строка 40: / Строка 40: @@
 == Реализация ==
-<pre>
-;#toR
-; >R               ( d −− )                             Перенести d на стек возвратов.
-LTOR:           .DB     2
-                 .TEXT   ">R"                    ; ( n −− )  ( R: −− n )
-                 .DW     LUNLOOP
-TOR:            .DW     JTOR                    ; Перенести 16−битное целое из стека данных на стек возвратов.
-JTOR:           PKRM03 KINT
-                 FX<0 TOR1
-                 65536 +
-TOR1:           RME / ENT KFRAC RME ∗ KM2       ; На эмуляторах может возникнуть ошибка округления
-                 FR KINT KM2
-                 PGOTO JDROP
-…
-JDROP:          1                               ; Да, это обработчик DROP
-NDROP:          RM3 + M3                        ; А сюда сваливается 2DROP
-                 KGOTO9
-</pre>
-Реализации из SP-Forth 4.20:
-<pre>
-CODE1 >R    \ 94
-\ Исполнение: ( x -- ) ( R: -- x )
-\ Перенести x на стек возвратов.
-\ Интерпретация: семантика в режиме интерпретации не определена.
-   POP  EBX
-   PUSH EAX
-   MOV EAX, [EBP]
-   LEA EBP, 4 [EBP]
-   JMP EBX
-;C
-</pre>
-<pre>
-CODE C->R     \ 94
-     PUSH EAX
-     MOV  EAX, [EBP]
-     LEA  EBP, 4 [EBP]
-     RET
-END-CODE
-…
-: >R     ['] C->R    INLINE, ;   IMMEDIATE
-</pre>
-<pre>
-: >R   \ 94
-  ?COMP
-  S" C->R" TC-FINDOUT INLINE, ;   IMMEDIATE
-</pre>
-=== Советская реализация ===
 Слово &gt;R в ФОРТ-ЕС было [[примитив]]ом. Вот его описание и определение:
 <PRE>