X-Git-Url: https://git.rrq.au/?a=blobdiff_plain;f=jonesforth.S;h=45e6e854a5d2a4c3f26af264dfce56379d401425;hb=refs%2Fheads%2Fmaster;hp=8b02f1bba635be8a05300df9139b91f81c5beb41;hpb=092aa5189f24fbfb1714c1d2d31c26a666102c3c;p=rrq%2Fjonesforth.git

diff --git a/jonesforth.S b/jonesforth.S
index 8b02f1b..45e6e85 100644
--- a/jonesforth.S
+++ b/jonesforth.S
@@ -1,11 +1,11 @@
 /*	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.47 2009-09-11 08:33:13 rich Exp $
 
 	gcc -m32 -nostdlib -static -Wl,-Ttext,0 -Wl,--build-id=none -o jonesforth jonesforth.S
 */
-	.set JONES_VERSION,45
+	.set JONES_VERSION,47
 /*
 	INTRODUCTION ----------------------------------------------------------------------
 
@@ -716,18 +716,18 @@ code_\label :			// assembler code follows
 	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