: 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 abhängig von der tatsächlichen Lage der Stackpointer und der Formulierung von Assembler-Macros wie pop und push.