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

Материал из ПМК вики
Перейти к навигации Перейти к поиску
 
(не показано 18 промежуточных версий этого же участника)
Строка 1: Строка 1:
'''2DUP''' (два-дублировать, читается «два-дуп») — стандартное слово [[Каллисто]]. Продублировать пару [[Десятичное число|чисел]] в [[Стек данных|стеке]].
'''2DUP''' (два-дублировать, читается «два-дуп») — стандартное слово [[Каллисто]]. Продублировать пару [[Десятичное число|чисел]] в [[Стек данных|стеке]].
  2DUP          ( x1 x2 -- x1 x2 x1 x2 )       Дублировать пару чисел.
  2DUP          ( y x -- y x y x )             Дублировать пару чисел.
Дублирует верхнюю пару [[Ячейка (Каллисто)|ячеек]] x1 x2 в [[Стек данных|стеке]].
[[Файл:CallistoMAXMIN2DUP.png|thumb|right|264px|Пример работы слова 2DUP]]
Дублирует верхнюю пару [[Ячейка (Каллисто)|ячеек]] y x в [[Стек данных|стеке]].


== Ввод слова 2DUP ==
== Ввод слова 2DUP ==
Строка 13: Строка 14:
             Дублирует пару-ячеек x1 x2.
             Дублирует пару-ячеек x1 x2.


== 2DUP в предыдущем стандарте Forth-83 (англ.) ==
== История ==
2DUP — устоявшееся слово в Форте, название и поведение которого не менялось с 1979 года.
 
В [[Каллисто]] редко возникает необходимость в числовых парах. Слово 2DUP присутствует для жонглирования стеком, но используется реже, чем в классическом Форте.
 
=== 2DUP в предыдущем стандарте Forth-83 (англ.) ===
       2DUP        32b -- 32b 32b                79          "two-dupe"
       2DUP        32b -- 32b 32b                79          "two-dupe"
           Duplicate 32b.
           Duplicate 32b.


== 2DUP в стандарте Forth-79 (англ.) ==
=== 2DUP в стандарте Forth-79 (англ.) ===
  2DUP          d -- d d                                  "two-dupe"
  2DUP          d -- d d                                  "two-dupe"
     Duplicate the top double number on the stack.
     Duplicate the top double number on the stack.


== Заметки ==
== Реализация ==
В [[Каллисто]] 2DUP реализован, как [[примитив]]. Но при необходимости 2DUP можно легко выразить через [[OVER]]:
В [[Каллисто|Каллисто 1.0]] для экономии [[Память программ|памяти программ]] редко используемое слово 2DUP реализовано через [[примитив]] [[OVER]]:
  : 2DUP  ( x1 x2 -- x1 x2 x1 x2)  OVER OVER ;
<pre>
1919 ;#TwoDUP
1920 ; 2DUP            ( y x −− y x y x )                  Дублировать пару чисел.
1921 LDUP2:          .DB    4
1922                .TEXT  "2DUP"                  ; ( dd −− dd dd )
1923                .DW    LQDUP
1924 DUP2:          .DW CALL, OVER,OVER, EXIT      ; Дублировать верхнюю пару элементов стека.
</pre>
Красиво это можно записать так:
  : 2DUP  ( dd -- dd dd)  OVER OVER ;


== История ==
Реализация из SP-Forth 4.20:
2DUP — устоявшееся слово в Форте, название и поведение которого не менялось с 1979 года.
<pre>
 
CODE 2DUP ( x1 x2 -- x1 x2 x1 x2 ) \ 94
В [[Каллисто]] редко возникает необходимость в числовых парах, поэтому слово 2DUP используется реже, чем в классическом Форте.
\ Продублировать пару ячеек x1 x2.
    MOV EDX, [EBP]
    MOV -4 [EBP], EAX
    MOV -8 [EBP], EDX
    LEA EBP, -8 [EBP]
    RET
END-CODE
</pre>


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


== Ссылки ==
== Ссылки ==
* {{Исходник|TwoDUP|2DUP}}
* См. слова [[Слово ↑|↑]], [[2DROP]], [[2SWAP]]
* См. слова [[Слово ↑|↑]], [[2DROP]], [[2SWAP]]
* Слово [http://forth.sourceforge.net/standard/dpans/dpans6.htm#6.1.0380 2DUP (two-dupe)] в стандарте ANS Forth ''(англ.)''
* Слово [http://forth.sourceforge.net/standard/dpans/dpans6.htm#6.1.0380 2DUP (two-dupe)] в стандарте ANS Forth ''(англ.)''
Строка 60: Строка 83:




{{нет иллюстраций}}
{{заготовка}}
{{заготовка}}
[[Категория:Слова Каллисто]]
[[Категория:Слова Каллисто]]
[[Категория:Примитивы]]
[[Категория:Стековые манипуляции Каллисто]]
[[Категория:Стековые манипуляции Каллисто]]
[[Категория:Описание бета-версии Каллисто]]
[[Категория:Стандартные слова]]
[[Категория:1994 CORE]]
[[Категория:2012 CORE]]

Текущая версия от 16:35, 10 ноября 2017

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.

Реализация[править]

В Каллисто 1.0 для экономии памяти программ редко используемое слово 2DUP реализовано через примитив OVER:

1919 ;#TwoDUP
1920 ; 2DUP             ( y x −− y x y x )                   Дублировать пару чисел.
1921 LDUP2:          .DB     4
1922                 .TEXT   "2DUP"                  ; ( dd −− dd dd )
1923                 .DW     LQDUP
1924 DUP2:           .DW CALL, OVER,OVER, EXIT       ; Дублировать верхнюю пару элементов стека.

Красиво это можно записать так:

: 2DUP  ( dd -- dd dd)  OVER OVER ;

Реализация из SP-Forth 4.20:

CODE 2DUP ( x1 x2 -- x1 x2 x1 x2 ) \ 94
\ Продублировать пару ячеек x1 x2.
     MOV EDX, [EBP]
     MOV -4 [EBP], EAX
     MOV -8 [EBP], EDX
     LEA EBP, -8 [EBP]
     RET
END-CODE

Советская реализация[править]

В ФОРТ-ЕС слово 2DUP так и было определено, с целью лёгкой переносимости ядра:

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

Ссылки[править]


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