2DUP: различия между версиями
Перейти к навигации
Перейти к поиску
AtH (обсуждение | вклад) Нет описания правки |
AtH (обсуждение | вклад) Нет описания правки |
||
Строка 2: | Строка 2: | ||
2DUP ( y x -- y x y x ) Дублировать пару чисел. | 2DUP ( y x -- y x y x ) Дублировать пару чисел. | ||
[[Файл:CallistoMAXMIN2DUP.png|thumb|right|264px|Пример работы слова 2DUP]] | [[Файл:CallistoMAXMIN2DUP.png|thumb|right|264px|Пример работы слова 2DUP]] | ||
Дублирует верхнюю пару [[Ячейка (Каллисто)|ячеек]] | Дублирует верхнюю пару [[Ячейка (Каллисто)|ячеек]] y x в [[Стек данных|стеке]]. | ||
== Ввод слова 2DUP == | == Ввод слова 2DUP == |
Версия от 16:20, 4 июня 2016
2DUP (два-дублировать, читается «два-дуп») — стандартное слово Каллисто. Продублировать пару чисел в стеке.
2DUP ( y x -- y x y x ) Дублировать пару чисел.
Дублирует верхнюю пару ячеек y x в стеке.
Ввод слова 2DUP
В режиме NUM последовательно нажмите клавиши 2 Р-ГРД-Г K 3 6
Для возврата в режим NUM нажмите синюю клавишу P .
2DUP в стандарте ANS Forth
6.1.0380 2DUP "two-dupe" CORE ( x1 x2 -- x1 x2 x1 x2 ) Дублирует пару-ячеек x1 x2.
2DUP в предыдущем стандарте Forth-83 (англ.)
2DUP 32b -- 32b 32b 79 "two-dupe" Duplicate 32b.
2DUP в стандарте Forth-79 (англ.)
2DUP d -- d d "two-dupe" Duplicate the top double number on the stack.
Заметки
В Каллисто 2DUP реализован, как примитив. Но при необходимости 2DUP можно легко выразить через OVER:
: 2DUP ( x1 x2 -- x1 x2 x1 x2) OVER OVER ;
История
2DUP — устоявшееся слово в Форте, название и поведение которого не менялось с 1979 года.
В Каллисто редко возникает необходимость в числовых парах, поэтому слово 2DUP используется реже, чем в классическом Форте.
Реализация
В ядре ФОРТ-ЕС слово 2DUP было определено через примитив OVER
2DUP WD->WD,WD ПРОДУБЛИРОВАТЬ ДВОЙНОЕ ЗНАЧЕНИЕ 12 Экран номер 12 ( 31.03.86 ROLL PICK 2DUP 2DROP 2SWAP 2OVER 2ROT ) : 2DUP ( WD->WD,WD) OVER OVER ;
В FORTH ИТЭФ слово 2DUP было примитивом, вот его определение:
HEAD 204Q,'2DU',320Q,DUP2 ; 2DUP POP AX POP CX PUSH CX PUSH AX PUSH CX PUSH AX NEXT
Ссылки
- Исходный текст слова 2DUP в Каллисто Классик 1.0
- См. слова ↑, 2DROP, 2SWAP
- Слово 2DUP (two-dupe) в стандарте ANS Forth (англ.)
- Слово 2DUP (two-dupe) в черновике Forth 200x (англ.)
- ВЫПОЛНЕНИЕ АРИФМЕТИЧЕСКИХ ОПЕРАЦИЙ в книге Л.Броуди «Начальный курс программирования на языке Форт»
- How to Get Results в книге Leo Brodie Starting Forth (англ.)
У этой статьи нет иллюстраций. Вы можете помочь проекту, добавив их. |
Это заготовка статьи. Вы можете помочь проекту, дополнив её. |