Внимание: Вы не вошли в систему. Ваш IP-адрес будет общедоступен, если вы запишете какие-либо изменения. Если вы
войдёте или
создадите учётную запись, её имя будет использоваться вместо IP-адреса, наряду с другими преимуществами.
Правка может быть отменена.
Пожалуйста, просмотрите сравнение версий ниже, чтобы убедиться, что это нужная вам правка, и запишите страницу ниже, чтобы отменить правку.
Текущая версия |
Ваш текст |
Строка 36: |
Строка 36: |
|
| |
|
| == Реализация == | | == Реализация == |
| <pre>
| |
| 1814 JFR2: KRMA RME ∗ KRM5 + M0
| |
| 1815 32768 −
| |
| 1816 FX>=0 FROMR1
| |
| 1817 FANS − KM3 KGOTO9
| |
| 1818 FROMR1: RM0 KM3 KGOTO9
| |
| 1819
| |
| 1820 ;#RFetch
| |
| 1821 ; R@ ( −− D ) Скопировать значение D со стека возвратов.
| |
| 1822 LRAT: .DB 2
| |
| 1823 .TEXT "R@" ; ( −− n )
| |
| 1824 .DW LFROMR
| |
| 1825 RAT: .DW JR
| |
| 1826 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 ИТЭФ было [[примитив]]ом. Вот его описание и определение в ФОРТ-ЕС: | | Слово R@ в ФОРТ-ЕС и FORTH ИТЭФ было [[примитив]]ом. Вот его описание и определение в ФОРТ-ЕС: |
| <PRE> | | <PRE> |
Строка 98: |
Строка 70: |
| [[Категория:Примитивы]] | | [[Категория:Примитивы]] |
| [[Категория:Операции со стеком возвратов Каллисто]] | | [[Категория:Операции со стеком возвратов Каллисто]] |
| [[Категория:Стандартные слова]]
| |
| [[Категория:1994 CORE]]
| |
| [[Категория:2012 CORE]]
| |