[Win32forth-cvs] win32forth/src/kernel fkernel.f,1.15,1.16

[George H. <geo...@us...>]

Update of /cvsroot/win32forth/win32forth/src/kernel
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv14618/win32forth/src/kernel

Modified Files:
	fkernel.f 
Log Message:
gah: added 3reverse and 4reverse to kernel and modified various files to use it. Modified stack comments in toolset.f to use --  for consistency.
NOTE the new KERNEL.EXE is needed to build the system 

Index: fkernel.f
===================================================================
RCS file: /cvsroot/win32forth/win32forth/src/kernel/fkernel.f,v
retrieving revision 1.15
retrieving revision 1.16
diff -C2 -d -r1.15 -r1.16
*** fkernel.f	6 Jun 2005 09:44:39 -0000	1.15
--- fkernel.f	20 Jun 2005 07:40:47 -0000	1.16
***************
*** 444,448 ****
--- 444,464 ----
                  next    c;
  
+ CODE 3REVERSE   ( n1 n2 n3 -- n3 n2 n1 ) \ exchange first and third items on data stack
+                 mov     ecx, 4 [esp]
+                 mov     4 [esp], ebx
+                 mov     ebx, ecx
+                 next    c;
  
+ CODE 4REVERSE   ( n1 n2 n3 n4 -- n4 n3 n2 n1 ) \ exchange first and fourth plus second and
+                                                \ third items on the data stack
+                 mov     ecx, 8 [esp]
+                 mov     8 [esp], ebx
+                 mov     ebx, ecx
+                 mov     eax, 0 [esp]
+                 mov     ecx, 4 [esp]
+                 mov     4 [esp], eax
+                 mov     0 [esp], ecx
+                 next    c;
+                                        
  \ -------------------- Stack Operations -------------------------------------