2DUP: различия между версиями

Материал из ПМК вики
Перейти к навигации Перейти к поиску
Нет описания правки
Строка 17: Строка 17:
2DUP — устоявшееся слово в Форте, название и поведение которого не менялось с 1979 года.
2DUP — устоявшееся слово в Форте, название и поведение которого не менялось с 1979 года.


В [[Каллисто]] редко возникает необходимость в числовых парах, поэтому слово 2DUP используется реже, чем в классическом Форте.
В [[Каллисто]] редко возникает необходимость в числовых парах. Слово 2DUP присутствует, но используется реже, чем в классическом Форте.


=== 2DUP в предыдущем стандарте Forth-83 (англ.) ===
=== 2DUP в предыдущем стандарте Forth-83 (англ.) ===
Строка 28: Строка 28:


== Реализация ==
== Реализация ==
В [[Каллисто]] 2DUP реализован, как [[примитив]]. Но при необходимости 2DUP можно легко выразить через [[OVER]]:
В [[Каллисто]] для экономии памяти программ 2DUP реализован через [[OVER]]:
  : 2DUP  ( a b -- a b a b)  OVER OVER ;
  : 2DUP  ( a b -- a b a b)  OVER OVER ;


В ядре ФОРТ-ЕС слово 2DUP так и было определено, через [[примитив]] [[OVER]]
В ядре ФОРТ-ЕС слово 2DUP так и было определён, через [[примитив]] [[OVER]]
<PRE>
<PRE>
2DUP        WD->WD,WD ПРОДУБЛИРОВАТЬ ДВОЙНОЕ ЗНАЧЕНИЕ        12
2DUP        WD->WD,WD ПРОДУБЛИРОВАТЬ ДВОЙНОЕ ЗНАЧЕНИЕ        12
Строка 63: Строка 63:
{{заготовка}}
{{заготовка}}
[[Категория:Слова Каллисто]]
[[Категория:Слова Каллисто]]
[[Категория:Примитивы]]
[[Категория:Стековые манипуляции Каллисто]]
[[Категория:Стековые манипуляции Каллисто]]

Версия от 15:15, 6 июня 2016

2DUP (два-дублировать, читается «два-дуп») — стандартное слово Каллисто. Продублировать пару чисел в стеке.

2DUP           ( y x -- y x y x )              Дублировать пару чисел.
Пример работы слова 2DUP

Дублирует верхнюю пару ячеек 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 — устоявшееся слово в Форте, название и поведение которого не менялось с 1979 года.

В Каллисто редко возникает необходимость в числовых парах. Слово 2DUP присутствует, но используется реже, чем в классическом Форте.

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 реализован через OVER:

: 2DUP  ( a b -- a b a b)  OVER OVER ;

В ядре ФОРТ-ЕС слово 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

Ссылки


  Это заготовка статьи. Вы можете помочь проекту, дополнив её.