https://wiki.forth-ev.de/ 2026-04-21T11:41:27+00:00 https://wiki.forth-ev.de/ https://wiki.forth-ev.de/lib/exe/fetch.php/wiki:logo.png text/html 2010-12-29T17:12:45+00:00 Anonymous (anonymous@undisclosed.example.com) https://wiki.forth-ev.de/doku.php/words:kernel_embedded:stack:2dup?rev=1293642765 : 2DUP ( x1 x2 – x1 x2 x1 x2 ) over over ; text/html 2010-12-29T17:12:45+00:00 Anonymous (anonymous@undisclosed.example.com) https://wiki.forth-ev.de/doku.php/words:kernel_embedded:stack:2over?rev=1293642765 : 2over ( x1 x2 x3 x4 -- x1 x2 x3 x4 x1 x2 ) >r >r 2dup r> r> 2swap ; text/html 2010-12-29T17:12:45+00:00 Anonymous (anonymous@undisclosed.example.com) https://wiki.forth-ev.de/doku.php/words:kernel_embedded:stack:2swap?rev=1293642765 : 2swap ( x1 x2 x3 x4 -- x3 x4 x1 x2 ) rot ( -- x1 x3 x4 x2 ) >r ( -- x1 x3 x4 ) ( R: x2 -- ) rot ( -- x3 x4 x1 ) ( R: x2 -- ) r> ( -- x3 x4 x1 x2 ) ( R: -- ) ; text/html 2010-12-29T17:12:45+00:00 Anonymous (anonymous@undisclosed.example.com) https://wiki.forth-ev.de/doku.php/words:kernel_embedded:stack:drop?rev=1293642765 DROP : drop ( x1 --- ) sp@ 1 cells + \ Prinzip: Stackpointer inkrementieren. (Beispiel aus gForth) sp! ; In diesem theoretischen Beispiel wächst der Stack physikalisch hin zu niedrigeren Adressen. Daher wird durch inkrementieren des Stackpointers um eine CELL-Breite das text/html 2010-12-29T17:12:45+00:00 Anonymous (anonymous@undisclosed.example.com) https://wiki.forth-ev.de/doku.php/words:kernel_embedded:stack:dup?rev=1293642765 : 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) text/html 2010-12-29T17:12:45+00:00 Anonymous (anonymous@undisclosed.example.com) https://wiki.forth-ev.de/doku.php/words:kernel_embedded:stack:over?rev=1293642765 OVER Das Beispiel in high-level-forth soll das Prinzip zeigen. over wird in der Regel in Maschinencode geschrieben. Vergleiche auch DROP. : over ( x1 x2 -- x1 x2 x1 ) sp@ 1 cells + @ ; Hier ein praktisches Beispiel in Assembler für den 6502; siehe auch unter text/html 2010-12-29T17:12:45+00:00 Anonymous (anonymous@undisclosed.example.com) https://wiki.forth-ev.de/doku.php/words:kernel_embedded:stack:r-from?rev=1293642765 R> Zur Erklärung siehe: >R text/html 2010-12-29T17:12:45+00:00 Anonymous (anonymous@undisclosed.example.com) https://wiki.forth-ev.de/doku.php/words:kernel_embedded:stack:to-r?rev=1293642765 >R Forth wurde als 2-Stack-Maschine entwofen. Es gibt den Daten- und den Returnstack. Auf dem Returnstack wird die Liste der auszuführenden Forthworte geführt, die dort meist in der Form von Adressen liegen. Vorübergehend können aber auch Daten auf den Returnstack ausgelagert werden. Das Wort text/html 2010-12-29T17:12:45+00:00 Anonymous (anonymous@undisclosed.example.com) https://wiki.forth-ev.de/doku.php/words:kernel_embedded:stack:tuck?rev=1293642765 Wenn die Kombination swap over in einem Programm häufiger gebraucht wird, kann es aus Gründen der besseren Laufzeit günstiger sein diese Phrase in einem Stück Maschinencode zu fassen. Dafür hat sich der Name tuck eingebürgert. : tuck ( w1 w2 – w2 w1 w2 ) \ core-ext “tuck” swap over ;