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

Перейти к навигации Перейти к поиску
Внимание: Вы не вошли в систему. Ваш IP-адрес будет общедоступен, если вы запишете какие-либо изменения. Если вы войдёте или создадите учётную запись, её имя будет использоваться вместо IP-адреса, наряду с другими преимуществами.

Правка может быть отменена. Пожалуйста, просмотрите сравнение версий ниже, чтобы убедиться, что это нужная вам правка, и запишите страницу ниже, чтобы отменить правку.

Текущая версия Ваш текст
Строка 1: Строка 1:
'''>R''' (на стек возвратов, читается «на ар») — стандартное слово [[Каллисто]].
'''>R''' (читается «на ар») — стандартное слово [[Каллисто]].
  >R            ( d −− )                            Перенести d на стек возвратов.
  >R            ( d −− )                            Перенести d на стек возвратов.
Переносит 16-битное число из [[Стек данных|стека данных]] в [[Стек возвратов Каллисто|стек возвратов]].
Переносит 16-битное число из [[Стек данных|стека данных]] в [[Стек возвратов Каллисто|стек возвратов]].
Строка 9: Строка 9:


== >R в стандарте ANS Forth ==
== >R в стандарте ANS Forth ==
<PRE>
  6.1.0580  >R                                "to-r"                      CORE
  6.1.0580  >R                                "to-r"                      CORE
         Интерпретация: Семантика интерпретации для этого слова не определена.
         Интерпретация: Семантика интерпретации для этого слова не определена.
Строка 18: Строка 17:
         См.: 3.2.3.3 Стек возвратов, 6.1.2060 R>, 6.1.2070 R@, 6.2.0340 2>R,  
         См.: 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@.
             6.2.0410 2R>, 6.2.0415 2R@.
</PRE>
== История ==
В Форте [[Стек возвратов Каллисто|стек возвратов]] часто использовался, как удобное и быстрое промежуточное хранилище для чисел со [[Стек данных|стека данных]]. Для фортовских 16-битных целых этот трюк всё ещё действует, однако в [[Каллисто]] [[стек данных]] хранит [[Десятичное число|десятичные числа]]. Поэтому в [[Каллисто]] подобный трюк может привести к потере точности и не рекомендуется.


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


=== &gt;R в стандарте Forth-79 (англ.) ===
== &gt;R в стандарте Forth-79 (англ.) ==
  >R            n --                          C,200          "to-r"
  >R            n --                          C,200          "to-r"
     Transfer n to the return stack.  Every >R must be balanced by
     Transfer n to the return stack.  Every >R must be balanced by
Строка 33: Строка 28:
     definition.
     definition.


=== &gt;R в fig-FORTH Release 1 glossary, май 1979 (англ.) ===
== &gt;R в fig-FORTH Release 1 glossary, май 1979 (англ.) ==
  >R            n  ---                        C,L0
  >R            n  ---                        C,L0
         Remove a number from the computation stack and place as the most
         Remove a number from the computation stack and place as the most
Строка 40: Строка 35:


== Реализация ==
== Реализация ==
<pre>
1794 ;#toR
1795 ; >R              ( d −− )                            Перенести d на стек возвратов.
1796 LTOR:          .DB    2
1797                .TEXT  ">R"                    ; ( n −− )  ( R: −− n )
1798                .DW    LUNLOOP
1799 TOR:            .DW    JTOR                    ; Перенести 16−битное целое из стека данных на стек возвратов.
1800 JTOR:          PKRM03 KINT
1801                FX<0 TOR1
1802                65536 +
1803 TOR1:          RME / ENT KFRAC RME ∗ KM2      ; На эмуляторах может возникнуть ошибка округления
1804                FR KINT KM2
1805                PGOTO JDROP
…
2052 JDROP:          1                              ; Да, это обработчик DROP
2053 NDROP:          RM3 + M3                        ; А сюда сваливается 2DROP
2054                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 в ФОРТ-ЕС было [[примитив]]ом. Вот его описание и определение:
Слово &gt;R в ФОРТ-ЕС было [[примитив]]ом. Вот его описание и определение:
<PRE>
<PRE>
Строка 107: Строка 54:
== Ссылки ==
== Ссылки ==
* {{Исходник|toR|&gt;R}}
* {{Исходник|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.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://forth-standard.org/standard/core/toR &gt;R (to-r)] в черновике Forth 200x ''(англ.)''
Строка 119: Строка 65:
[[Категория:Примитивы]]
[[Категория:Примитивы]]
[[Категория:Операции со стеком возвратов Каллисто]]
[[Категория:Операции со стеком возвратов Каллисто]]
[[Категория:Стандартные слова]]
[[Категория:1994 CORE]]
[[Категория:2012 CORE]]
Пожалуйста, учтите, что любой ваш вклад в проект «ПМК вики» может быть отредактирован или удалён другими участниками. Если вы не хотите, чтобы кто-либо изменял ваши тексты, не помещайте их сюда.
Вы также подтверждаете, что являетесь автором вносимых дополнений, или скопировали их из источника, допускающего свободное распространение и изменение своего содержимого (см. Pmkwiki:Авторские права). НЕ РАЗМЕЩАЙТЕ БЕЗ РАЗРЕШЕНИЯ ОХРАНЯЕМЫЕ АВТОРСКИМ ПРАВОМ МАТЕРИАЛЫ!

В целях защиты вики от автоматического спама в правках просим вас решить следующую каптчу:

Отменить Справка по редактированию (в новом окне)

Шаблоны, используемые на этой странице:

Источник — https://pmk.the-hacker.ru/⟩R