Внимание: Вы не вошли в систему. Ваш IP-адрес будет общедоступен, если вы запишете какие-либо изменения. Если вы
войдёте или
создадите учётную запись, её имя будет использоваться вместо IP-адреса, наряду с другими преимуществами.
Правка может быть отменена.
Пожалуйста, просмотрите сравнение версий ниже, чтобы убедиться, что это нужная вам правка, и запишите страницу ниже, чтобы отменить правку.
Текущая версия |
Ваш текст |
Строка 39: |
Строка 39: |
|
| |
|
| == Реализация == | | == Реализация == |
| <pre>
| |
| 1807 ;#Rfrom
| |
| 1808 ; R> ( −− D ) Переместить D из стека возвратов на стек данных.
| |
| 1809 LFROMR: .DB 2
| |
| 1810 .TEXT "R>" ; ( −− n ) ( R: n −− )
| |
| 1811 .DW LTOR
| |
| 1812 FROMR: .DW JFROMR ; Перенести 16−битное целое со знаком из стека возвратов на стек данных.
| |
| 1813 JFROMR: RM2 MA M5 2 + M2
| |
| 1814 JFR2: KRMA RME ∗ KRM5 + M0
| |
| 1815 32768 −
| |
| 1816 FX>=0 FROMR1
| |
| 1817 FANS − KM3 KGOTO9
| |
| 1818 FROMR1: RM0 KM3 KGOTO9
| |
| </pre>
| |
| Реализации из SP-Forth 4.20:
| |
| <pre>
| |
| CODE1 R> \ 94
| |
| \ Исполнение: ( -- x ) ( R: x -- )
| |
| \ Перенести x со стека возвратов на стек данных.
| |
| \ Интерпретация: семантика в режиме интерпретации не определена.
| |
| LEA EBP, -4 [EBP]
| |
| MOV [EBP], EAX
| |
| POP EBX
| |
| POP EAX
| |
| JMP EBX
| |
| ;C
| |
| </pre>
| |
| <pre>
| |
| CODE C-R> \ 94
| |
| LEA EBP, -4 [EBP]
| |
| MOV [EBP], EAX
| |
| POP EAX
| |
| RET
| |
| END-CODE
| |
| …
| |
| : R> ['] C-R> INLINE, ; IMMEDIATE
| |
| </pre>
| |
| <pre>
| |
| : R>
| |
| ?COMP
| |
| S" C-R>" TC-FINDOUT INLINE, ; IMMEDIATE
| |
| </pre>
| |
|
| |
| === Советская реализация ===
| |
| Слово R> в ФОРТ-ЕС было [[примитив]]ом. Вот его описание и определение: | | Слово R> в ФОРТ-ЕС было [[примитив]]ом. Вот его описание и определение: |
| <PRE> | | <PRE> |
Строка 114: |
Строка 70: |
| [[Категория:Примитивы]] | | [[Категория:Примитивы]] |
| [[Категория:Операции со стеком возвратов Каллисто]] | | [[Категория:Операции со стеком возвратов Каллисто]] |
| [[Категория:Стандартные слова]]
| |
| [[Категория:1994 CORE]]
| |
| [[Категория:2012 CORE]]
| |