/* A sometimes minimal FORTH compiler and tutorial for Linux / i386 systems. -*- asm -*-
By Richard W.M. Jones <rich@annexia.org> http://annexia.org/forth
This is PUBLIC DOMAIN (see public domain release statement below).
- $Id: jonesforth.S,v 1.45 2007-10-22 18:53:13 rich Exp $
+ $Id: jonesforth.S,v 1.46 2009-09-11 08:32:32 rich Exp $
gcc -m32 -nostdlib -static -Wl,-Ttext,0 -Wl,--build-id=none -o jonesforth jonesforth.S
*/
pop %eax
pop %ebx
pop %ecx
+ push %ebx
push %eax
push %ecx
- push %ebx
NEXT
defcode "-ROT",4,,NROT
pop %eax
pop %ebx
pop %ecx
- push %ebx
push %eax
push %ecx
+ push %ebx
NEXT
defcode "2DROP",5,,TWODROP // drop top two elements of stack