Re: Stack vs stackless operation

So I did some quite basic testing with x86
fig-Forth for DOS. I devised 4 OOS words:
:=: (exchange values among two variables)
pop  BX
pop  DI
mov  AX,[BX]
xchg AX,[DI]
mov  [BX],AX
jmp  NEXT
++  (increment variable by one)
pop  BX
inc  WORD PTR [BX}
jmp  NEXT
-- (similar to above, just uses dec -- not tested, it'll give same
result)
+> (add two variables then store result into third one)
pop  DI
pop  BX
mov  CX,[BX]
pop  BX
mov  AX,[BX]
add  AX,CX
mov  [DI],AX
jmp  NEXT
How the simplistic tests have been done:
7 VARIABLE V1
8 VARIABLE V2
9 VARIABLE V3
: TOOK ( t1 t2 -- )
  DROP SPLIT TIME@ DROP SPLIT
  ROT SWAP - CR ." It took " U. ." seconds and "
  - 10 * U. ." milliseconds "
;
: TEST1
  1000 0 DO  10000 0 DO
  ...expression...
  LOOP LOOP
;
0 0 TIME! TIME@ TEST TOOK
The results are (for the following expressions):
V1 @ V2 @ + V3 !  - 25s 430ms
V1 V2 V3 +>       - 17s 240ms
1 V1 +!           - 14s  60ms
V1 ++             - 10s 820ms
V1 @ V3 ! V2 @ V1 ! V3 @ V2 ! - 40s 150ms
V1 V2 :=:                     - 15s 260ms
So there is a noticeable difference indeed.
--