words:stack:dup
: 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.
words/stack/dup.txt · Zuletzt geändert: 2010-12-29 18:12 von 127.0.0.1