RP@: различия между версиями
Перейти к навигации
Перейти к поиску
AtH (обсуждение | вклад) |
AtH (обсуждение | вклад) Нет описания правки |
||
Строка 23: | Строка 23: | ||
</pre> | </pre> | ||
== Советская реализация == | === Советская реализация === | ||
Слово RP@ взято в [[Каллисто]] из ФОРТ-ЕС, где также было [[примитив]]ом. Вот его описание и определение в ФОРТ-ЕС: | Слово RP@ взято в [[Каллисто]] из ФОРТ-ЕС, где также было [[примитив]]ом. Вот его описание и определение в ФОРТ-ЕС: | ||
<PRE> | <PRE> |
Версия от 13:48, 9 ноября 2017
RP@ (считать RP, читается «ар-пи извлечь») — фортовское слово Каллисто.
RP@ ( −− a ) Считать RP. Адрес текущей вершины стека возвратов.
Адрес текущей вершины стека возвратов.
Ввод слова RP@
В режиме ЛАТ последовательно нажмите четыре клавиши × 6 P ИП
Эти нажатия оставляют клавиатуру в режиме NUM.
Реализация
1738 SPAT0: 1 EE 4 + KM3 KGOTO9 … 1749 ; ∗∗ Стек возвратов ∗∗ 1750 ; 1751 ;#RPFetch 1752 ; RP@ ( −− a ) Считать RP. Адрес текущей вершины стека возвратов. 1753 LRPAT: .DB 3 1754 .TEXT "RP@" 1755 .DW LSPSTO 1756 RPAT: .DW JRPAT 1757 JRPAT: RM2 GOTO SPAT0
Советская реализация
Слово RP@ взято в Каллисто из ФОРТ-ЕС, где также было примитивом. Вот его описание и определение в ФОРТ-ЕС:
RP@ * ->A АДРЕС ТЕКУЩЕЙ ВЕРШИНЫ-СТЕКА ВОЗВРАТОВ 20 Экран номер 20 ( 31.03.86 SP@ SP! RP@ RP! 2/ 2* 2@ 2! DEPTH ) CODE RP@ ( ->A) RW1 RRET LR, RW1 RFORTH SR, PUSHRW1 B, END-CODE
Ссылки
- Исходный текст слова RP@ в Каллисто Классик 1.0
- См. слова !RP и R0
У этой статьи нет иллюстраций. Вы можете помочь проекту, добавив их. |
Это заготовка статьи. Вы можете помочь проекту, дополнив её. |