2SWAP: различия между версиями
Перейти к навигации
Перейти к поиску
AtH (обсуждение | вклад) Нет описания правки |
AtH (обсуждение | вклад) |
||
Строка 27: | Строка 27: | ||
== Реализация == | == Реализация == | ||
В ядре ФОРТ-ЕС слово 2SWAP было определено через [[примитив]] [[PICK]]: | |||
<PRE> | <PRE> | ||
Экран номер 12 | Экран номер 12 |
Версия от 05:48, 26 марта 2016
2SWAP (два-обмен, читается «два-своп») — стандартное слово Каллисто. Обменять местами в стеке две верхних пары ячеек.
2SWAP ( x1 x2 x3 x4 -- x3 x4 x1 x2 ) Обмен двух пар.
Меняет местами две верхние пары чисел в стеке.
Ввод слова 2SWAP
В режиме NUM последовательно нажмите клавиши 2 Р-ГРД-Г 1 В↑ ШГ← 6
Для возврата в режим NUM нажмите синюю клавишу P .
2SWAP в стандарте ANS Forth
6.1.0430 2SWAP "two-swap" CORE ( x1 x2 x3 x4 -- x3 x4 x1 x2 ) Меняет местами две верхних пары-ячеек.
2SWAP в предыдущем стандарте Forth-83 (англ.)
2SWAP 32b1 32b2 -- 32b2 32b1 79 "two-swap" The top two double numbers are exchanged.
2SWAP в стандарте Forth-79 (англ.)
2SWAP d1 d2 -- d2 d1 "two-swap" Exchange the top two double numbers on the stack.
История
2SWAP — устоявшееся слово в Форте, название и поведение которого не менялось с 1979 года.
В Каллисто редко возникает необходимость в числовых парах, поэтому слово 2SWAP используется реже, чем в классическом Форте.
Реализация
В ядре ФОРТ-ЕС слово 2SWAP было определено через примитив PICK:
Экран номер 12 ( 31.03.86 ROLL PICK 2DUP 2DROP 2SWAP 2OVER 2ROT ) : 2OVER ( WD1,WD2->WD1,WD2,WD1) 3 PICK 3 PICK ;
Ссылки
- См. слова ↔, 2DUP, 2DROP
- Слово 2SWAP (two-swap) в стандарте ANS Forth (англ.)
- Слово 2SWAP (two-swap) в черновике Forth 200x (англ.)
- ВЫПОЛНЕНИЕ АРИФМЕТИЧЕСКИХ ОПЕРАЦИЙ в книге Л.Броуди «Начальный курс программирования на языке Форт»
- How to Get Results в книге Leo Brodie Starting Forth (англ.)
У этой статьи нет иллюстраций. Вы можете помочь проекту, добавив их. |
Это заготовка статьи. Вы можете помочь проекту, дополнив её. |