: DUP  ( x -- x x )   >r r@ r> ;

Besser: code

---

Aus Laufzeitgründen wird DUP immer mit Hilfe der Instruktionen der zugrunde liegenden Maschiene formuliert.
z.B.

8080:

CODE DUP   h pop   h push   h push   jmp end-code

(Aus: All about Forth; Forth-79)

Das Beispiel ist anhängig von der tatsächlichen Lage der Stackpointer und der Formulierung von Assembler-Macros wie pop und push.