: 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 drop realisiert. Die logische Richtung und die physikalische Richtung stimmen hier nicht überein. Gewöhnlich wird drop in Maschinencode geschrieben und nicht in High-Level-Forth.
Als praktisches Beispiel in Assembler für den Maschinencode dient das MVP-forth für den 6502. Es ist ein 16-bit Forth implementiert auf einer 8-bit Maschine. 1 CELLS ist daher 2 in diesem System.
Das X-Register im 6502 wurde als Stackpointer benutzt. Der Stack wuchs physikalisch auch hier in Richtung niedrigerer Adressen. Daher konnte der Stackpointer durch zweimaliges inkrementieren des X-Registers eine Zelle höher gestellt werden - was logisch ein drop ergibt.
DROP DA DROP+2
JMP POP
...
POP INX
INX
JMP NEXT
Das Beispiel zeigt auch folgendes: Um eine zentrale Stelle für das Inkrement des Stackpointers zu haben wurde pop angelegt. Und alle Code-Sequenzen, die zuletzt noch ein Datenwert vom Stack entfernen müssen, können dort hin springen.