Assembly code.

[jonesforth.git] / perf_dupdrop.f

diff --git a/perf_dupdrop.f b/perf_dupdrop.f
new file mode 100644 (file)
index 0000000..8b0d911
--- /dev/null
+++ b/perf_dupdrop.f
@@ -0,0 +1,5 @@
+( -*- text -*-
+  FORTH repeated DUP DROP * 1000 using ordinary indirect threaded code
+  and the assembler primitives.
+  $Id: perf_dupdrop.f,v 1.1 2007-10-10 13:01:05 rich Exp $ )
+