Редактирование: 2DUP
Перейти к навигации
Перейти к поиску
Правка может быть отменена. Пожалуйста, просмотрите сравнение версий ниже, чтобы убедиться, что это нужная вам правка, и запишите страницу ниже, чтобы отменить правку.
Текущая версия | Ваш текст | ||
Строка 62: | Строка 62: | ||
: 2DUP ( WD->WD,WD) OVER OVER ; | : 2DUP ( WD->WD,WD) OVER OVER ; | ||
</PRE> | </PRE> | ||
В FORTH ИТЭФ слово 2DUP было [[примитив]]ом, вот его определение: | В FORTH ИТЭФ слово 2DUP также было [[примитив]]ом, вот его определение: | ||
<PRE> | <PRE> | ||
HEAD 204Q,'2DU',320Q,DUP2 ; 2DUP | HEAD 204Q,'2DU',320Q,DUP2 ; 2DUP |