Редактирование: 2DUP

Перейти к навигации Перейти к поиску
Внимание: Вы не вошли в систему. Ваш IP-адрес будет общедоступен, если вы запишете какие-либо изменения. Если вы войдёте или создадите учётную запись, её имя будет использоваться вместо IP-адреса, наряду с другими преимуществами.

Правка может быть отменена. Пожалуйста, просмотрите сравнение версий ниже, чтобы убедиться, что это нужная вам правка, и запишите страницу ниже, чтобы отменить правку.

Текущая версия Ваш текст
Строка 14: Строка 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.


== Реализация ==
== Заметки ==
В [[Каллисто|Каллисто 1.0]] для экономии [[Память программ|памяти программ]] редко используемое слово 2DUP реализовано через [[примитив]] [[OVER]]:
В [[Каллисто]] 2DUP реализован, как [[примитив]]. Но при необходимости 2DUP можно легко выразить через [[OVER]]:
<pre>
  : 2DUP  ( x1 x2 -- x1 x2 x1 x2)  OVER OVER ;
1919 ;#TwoDUP
 
1920 ; 2DUP            ( y x −− y x y x )                  Дублировать пару чисел.
== История ==
1921 LDUP2:          .DB    4
2DUP — устоявшееся слово в Форте, название и поведение которого не менялось с 1979 года.
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 используется реже, чем в классическом Форте.
<pre>
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
</pre>


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




{{нет иллюстраций}}
{{заготовка}}
{{заготовка}}
[[Категория:Слова Каллисто]]
[[Категория:Слова Каллисто]]
[[Категория:Примитивы]]
[[Категория:Стековые манипуляции Каллисто]]
[[Категория:Стековые манипуляции Каллисто]]
[[Категория:Стандартные слова]]
[[Категория:1994 CORE]]
[[Категория:2012 CORE]]
Пожалуйста, учтите, что любой ваш вклад в проект «ПМК вики» может быть отредактирован или удалён другими участниками. Если вы не хотите, чтобы кто-либо изменял ваши тексты, не помещайте их сюда.
Вы также подтверждаете, что являетесь автором вносимых дополнений, или скопировали их из источника, допускающего свободное распространение и изменение своего содержимого (см. Pmkwiki:Авторские права). НЕ РАЗМЕЩАЙТЕ БЕЗ РАЗРЕШЕНИЯ ОХРАНЯЕМЫЕ АВТОРСКИМ ПРАВОМ МАТЕРИАЛЫ!

В целях защиты вики от автоматического спама в правках просим вас решить следующую каптчу:

Отменить Справка по редактированию (в новом окне)

Шаблоны, используемые на этой странице:

Источник — https://pmk.the-hacker.ru/2DUP