This page (revision-48) was last changed on 03-Feb-2023 15:21 by Stefan Haubenthal 

This page was created on 04-Dec-2010 12:59 by Carsten Strotmann

Only authorized users are allowed to rename pages.

Only authorized users are allowed to delete pages.

Page revision history

Version Date Modified Size Author Changes ... Change note
48 03-Feb-2023 15:21 163 bytes Stefan Haubenthal to previous typo
47 01-Jan-2021 10:29 164 bytes Carsten Strotmann to previous | to last
46 14-Dec-2014 21:43 35 KB Carsten Strotmann to previous | to last
45 14-Dec-2014 21:42 35 KB Carsten Strotmann to previous | to last
44 01-Nov-2014 17:28 35 KB Carsten Strotmann to previous | to last
43 01-Nov-2014 17:23 35 KB Carsten Strotmann to previous | to last
42 01-Nov-2014 17:22 35 KB Carsten Strotmann to previous | to last Results VCFB 2014
41 22-Sep-2014 19:43 33 KB Carsten Strotmann to previous | to last

Page References

Incoming links Outgoing links
Forth Benchmarks
Forth Benchmarks

Version management

Difference between version and

At line 14 added one line
| Martin Metz | Amstrad NC100 Z80 4.606Mhz | VolksForth CP/M (ITC) | GCD 1 | 38.1 |
At line 30 added 148 lines
| KC85 Team | KC85/4 U880 4Mhz | VolksForth CP/M | Nesting 1Mil | 144 |
| Venty | Thinkpad T61, 2Ghz Core Duo | gforth-fast, Linux | Integer Calc | 0.0013 |
| Venty | Thinkpad T61, 2Ghz Core Duo | gforth, Linux | Integer Calc | 0.0019 |
| Venty | Nokia N900 ARM A8 600Mhz | gforth-fast, Linux | Nesting 32Mil | 3.9 |
| Venty | Nokia N900 ARM A8 600Mhz | gforth-fast, Linux | Sieve Bench | 0.015 |
| Venty | Nokia N900 ARM A8 600Mhz | gforth-fast, Linux | 6502emu | 1 |
| Venty | Nokia N900 ARM A8 600Mhz | gforth-dtc, Linux | Nesting 32Mil | 5.5 |
| Venty | Nokia N900 ARM A8 600Mhz | gforth-dtc, Linux | Sieve Bench | 0.025 |
| Venty | Nokia N900 ARM A8 600Mhz | gforth-dtc, Linux | 6502emu | 1.8 |
| Venty | Nokia N900 ARM A8 600Mhz | gforth-itc, Linux | Nesting 32Mil | 6.9 |
| Venty | Nokia N900 ARM A8 600Mhz | gforth-itc, Linux | Sieve Bench | 0.028 |
| Venty | Nokia N900 ARM A8 600Mhz | gforth-itc, Linux | 6502emu | 2.2 |
| Thorsten Kuphaldt | Amiga 3000 68030 25Mhz | jforth | Integer Bench | 0.24 |
| Thorsten Kuphaldt | Amiga 3000 68030 25Mhz | jforth | Nesting 1Mil | 1.32 |
| Thorsten Kuphaldt | Amiga 3000 68030 25Mhz | jforth | Memory Move | 0.67 |
| Thorsten Kuphaldt | Amiga 3000 68030 25Mhz | jforth | Sieve Bench | 0.148 |
| Thorsten Kuphaldt | Amiga 3000 68030 25Mhz | jforth | GCD 1 | 0.64 |
| Stefan Herold | Amstrad 6128+ Z80A 4Mhz | Uniforth | Integer Calc | 17 |
| Stefan Herold | Amstrad 6128+ Z80A 4Mhz | Uniforth | Fibonacci 2 | 0.23 |
| Stefan Herold | Amstrad 6128+ Z80A 4Mhz | Uniforth | Nesting 1Mil | 206 |
| Stefan Herold | Amstrad 6128+ Z80A 4Mhz | Uniforth | Sieve Bench | 12 |
| Ingo Soetebier | iBook PPC 750lx (G3) 600Mhz | OpenFirmware | Integer Calc | 0.03 |
| Ingo Soetebier | iBook PPC 750lx (G3) 600Mhz | OpenFirmware | Fibonacci 1 | 0.0026 |
| Ingo Soetebier | iBook PPC 750lx (G3) 600Mhz | OpenFirmware | Fibonacci 2 | 0.0027 |
| Ingo Soetebier | iBook PPC 750lx (G3) 600Mhz | OpenFirmware | Nesting 1Mil | 1 |
| Ingo Soetebier | iBook PPC 750lx (G3) 600Mhz | OpenFirmware | Sieve Bench | 0.031 |
| Ingo Soetebier | iBook PPC 750lx (G3) 600Mhz | OpenFirmware | GCD 1 | 0.024 |
| Michael Kalus | Rockwell R1200-14, 2Mhz 65F12 | RSC-Forth | Fibonacci 1 | 16.09 |
| Michael Kalus | Rockwell R1200-14, 2Mhz 65F12 | RSC-Forth | Fibonacci 2 | 0.05 |
| Michael Kalus | Rockwell R1200-14, 2Mhz 65F12 | RSC-Forth | Nesting 1Mil | 149 |
| Michael Kalus | Rockwell R1200-14, 2Mhz 65F12 | RSC-Forth | Integer Calc | 31 |
| Matthias Trute | Atmega16 8MHz | amForth 4.4 | Integer Calc | 1.56 |
| Matthias Trute | Atmega16 8MHz | amForth 4.4 | Fibonacci 1 | 1.46 |
| Matthias Trute | Atmega16 8MHz | amForth 4.4 | Fibonacci 2 | 0.0047 |
| Matthias Trute | Atmega16 8MHz | amForth 4.4 | Nesting 1Mil | 15.4 |
| Matthias Trute | Atmega16 8MHz | amForth 4.4 | Nesting 32Mil | 489 |
| Matthias Trute | Atmega16 8MHz | amForth 4.4 | GCD 1 | 7.12 |
| Matthias Trute | Atmega16 8MHz | amForth 4.4 | GCD 2 | 10.5 |
| Matthias Trute | Atmega16 8MHz | amForth 4.4 | Takeuchi | 0.7 |
| Michael Kalus | MSP430FR5739, 8Mhz DCO intern MSP-EXP430FR5739 Experimenter Board | CamelForth | Integer Calc 100x | 02'45':10 |
| Michael Kalus | MSP430FR5739, 8Mhz DCO intern MSP-EXP430FR5739 Experimenter Board | CamelForth | FIB1 100x | 00'46':39 |
| Michael Kalus | MSP430FR5739, 8Mhz DCO intern MSP-EXP430FR5739 Experimenter Board | CamelForth | FIB2 10000x | 00'16':91 |
| Michael Kalus | MSP430FR5739, 8Mhz DCO intern MSP-EXP430FR5739 Experimenter Board | CamelForth | Nesting 32Mil | 02'31':23 |
| Carsten Strotmann | IBM L40S (386SX) | mina (Fig-Forth) | Fib2 (1000) | 8s |
| Carsten Strotmann | IBM L40X (386SX) | F83 (Laxen & Perry) | Fib2 (1000) | 8s |
| Carsten Strotmann | IBM L40X (386SX) | GNU Forth 0.5.0 ec8086 | Fib2 (1000) | 24s |
| Carsten Strotmann | IBM L40X (386SX) | VolksForth MS-DOS | Fibonacci 1 | 0.36s |
| Thorsten Schoeler | Sinclair Spectrum+ | Aber Forth (FIG-Forth) | Integer | 25s |
| Thorsten Schoeler | " | " | prime | 11s |
| Thorsten Schoeler | " | " | Nesting 1m | 3m17s |
| Thorsten Schoeler | " | " | GCD1 | 2m14s |
| Thorsten Schoeler | " | " | Fib2 (1000) | 1m46s |
| Thorsten Schoeler | HX-20 | Epson Forth E1.0 | Fib2 (1000) | 3m16s |
| Thorsten Schoeler | HX-20 | " | Nesting 32mil | 2h43m49s |
| Thorsten Schoeler | HX-20 | " | Nesting 1mil | 5m08s |
| Thorsten Schoeler | HX-20 | " | Integer 32tsd | 1m03s |
| Thorsten Schoeler | HX-20 6301 614khz | " | Prime | 23s |
| Wolfgang Stief | SUN SparcStation 10 TI TMS390255 | OpenFirmware | Integer | 0,14s |
| Wolfgang Stief | SUN SparcStation 10 TI TMS390255 | OpenFirmware | Fib1 | 0,005s |
| Wolfgang Stief | SUN SparcStation 10 TI TMS390255 | OpenFirmware | Fib2 | 0,2s |
| Wolfgang Stief | SUN SparcStation 10 TI TMS390255 | OpenFirmware | Memory Move | 143s |
| Wolfgang Stief | SUN SparcStation 10 TI TMS390255 | OpenFirmware | Prime | 0,11s |
| Wolfgang Stief | SUN SparcStation 10 TI TMS390255 | OpenFirmware | GCD1 | 0,51s |
| Wolfgang Stief | SUN SparcStation 10 TI TMS390255 | OpenFirmware | GCD2 | 0,65s |
| Wolfgang Stief | SUN SparcStation 10 TI TMS390255 | OpenFirmware | Takeuchi | 0,06s |
| Wolfgang Stief | SUN Ultra 1 200 Mhz UltraSprac | OpenBoot 3.25 | Integer | 0,33s |
| Wolfgang Stief | SUN Ultra 1 200 Mhz UltraSprac | OpenBoot 3.25 | Fib1 | 0,014s |
| Wolfgang Stief | SUN Ultra 1 200 Mhz UltraSprac | OpenBoot 3.25 | Fib2 | 0,06s |
| Wolfgang Stief | SUN Ultra 1 200 Mhz UltraSprac | OpenBoot 3.25 | Nesting 32mil | 9s |
| Wolfgang Stief | SUN Ultra 1 200 Mhz UltraSprac | OpenBoot 3.25 | Mempry Move | 0,014s |
| Wolfgang Stief | SUN Ultra 1 200 Mhz UltraSprac | OpenBoot 3.25 | Prime | 0,03s |
| Wolfgang Stief | SUN Ultra 1 200 Mhz UltraSprac | OpenBoot 3.25 | GCD1 | 0,08s |
| Wolfgang Stief | SUN Ultra 1 200 Mhz UltraSprac | OpenBoot 3.25 | GCD2 | 0,11s |
| Wolfgang Stief | SUN Ultra 1 200 Mhz UltraSprac | OpenBoot 3.25 | Takeuchi | 0,009s |
| Thorsten Schoeler | Fignition (ATMEL) | Fignition Forth | fib2 (1000) | 13s |
| Stefan Niestegge | Atari Falcom 68060 100mhz | f68kans | Integer | 0,022s |
| Stefan Niestegge | Atari Falcon 68060 100mhz | f68kans | Fib2 | 0,0012s |
| Stefan Niestegge | Atari Falcon 68060 | f68kans | Countbits | 0,05s |
| Stefan Niestegge | Atari Falcon 68060 | f68kans | GCD1 | 0,063s |
| Stefan Niestegge | Atari Falcon 68060 | f68kans | GCD2 | 0,067s |
| Stefan Niestegge | Atari Falcon 68060 | f68kans | Nesting 32mil | 7,4s |
| Thorsten Kuphaldt | C64 (normal) | Forth64 | Nesting 1mill | 6m20 |
| " | C64 (Turbo FPGA 6502) | Forth64 | Nesting 1mill | 25s |
| " | C64 (normal) | Forth64 | Fib2 (1000) | 3m50s |
| " | C64 (Turbo FPGA 6502) | Forth64 | Fib2 (1000) | 16s |
| Martin Neitzel | Asus EeePC 1000h (Atom N270 1.6Ghz) | FreeBSD 9 FICL Bootloader | Integer | 0,00075s |
| Martin Neitzel | Asus EeePC 1000h (Atom N270 1.6Ghz) | FreeBSD 9 FICL Bootloader | Fib2 | 66s |
| Martin Neitzel | Asus EeePC 1000h (Atom N270 1.6Ghz) | FreeBSD 9 FICL Bootloader | Nesting 1mil | 0.66s |
| Martin Neitzel | Asus EeePC 1000h (Atom N270 1.6Ghz) | FreeBSD 9 FICL Bootloader | Nesting 32mil | 21s |
| Martin Neitzel | Asus EeePC 1000h (Atom N270 1.6Ghz) | FreeBSD 9 FICL Bootloader | GCD2 | 0.57s |
| Sabine "Atari Frosch" Engelhardt | Atari Portfolio | VolksForth 3.81 | Fib2 | 35s |
| Sabine "Atari Frosch" Engelhardt | Atari Portfolio | VolksForth 3.81 | Prime | 6s |
| Sabine "Atari Frosch" Engelhardt | Atari Portfolio | VolksForth 3.81 | Takeuchi | 17s |
| Herbert Lange | Compaq Deskpro P166 | pForth V27 | Integer Calc | 0,052s |
| Herbert Lange | Compaq Deskpro P166 | pForth V27 | Fib1 | 0,061s |
| Herbert Lange | Compaq Deskpro P166 | pForth V27 | Fib2 | 0,001s |
| Herbert Lange | Compaq Deskpro P166 | pForth V27 | Nesting 32mil | 15,42s |
| Herbert Lange | Compaq Deskpro P166 | pForth V27 | Memory Move | 0,124s |
| Herbert Lange | Compaq Deskpro P166 | pForth V27 | Prime | 0,007s |
| Herbert Lange | Compaq Deskpro P166 | pForth V27 | GCD1 | 0,002s |
| Herbert Lange | Apple iMac G3 400Mhz | pForth V27 | Integer Calc | 0,013s |
| Herbert Lange | Apple iMac G3 400Mhz | pForth V27 | Fib1 | 0,015s |
| Herbert Lange | Apple iMac G3 400Mhz | pForth V27 | Fib2 | 0,001s |
| Herbert Lange | Apple iMac G3 400Mhz | pForth V27 | Nesting 32mil | 4,335s |
| Herbert Lange | Apple iMac G3 400Mhz | pForth V27 | Memory Move | 0,028s |
| Herbert Lange | Apple iMac G3 400Mhz | pForth V27 | Prime | 0,017s |
| Herbert Lange | Apple iMac G3 400Mhz | pForth V27 | GCD1 | 0,063s |
| Herbert Lange | DEC 3000 400s | pForth V27 | Integer | 0,123s |
| Herbert Lange | DEC 3000 400s | pForth V27 | Fib1 | 0,098s |
| Herbert Lange | DEC 3000 400s | pForth V27 | Fib21 | 0,001s |
| Herbert Lange | DEC 3000 400s | pForth V27 | Nesting 32mil | 30,694s |
| Herbert Lange | DEC 3000 400s | pForth V27 | Memory Move | 0,207s |
| Herbert Lange | DEC 3000 400s | pForth V27 | Prime | 0,117s |
| Herbert Lange | DEC 3000 400s | pForth V27 | GCD1 | 0,483 |
| Herbert Lange | SUN Ultra 1 Creator 3D | pForth V27 | Integer | 0,049s |
| Herbert Lange | SUN Ultra 1 Creator 3D | pForth V27 | Fib1 | 0,052s |
| Herbert Lange | SUN Ultra 1 Creator 3D | pForth V27 | Fib2 | 0,001s |
| Herbert Lange | SUN Ultra 1 Creator 3D | pForth V27 | Nesting 32mil | 15,631s |
| Herbert Lange | SUN Ultra 1 Creator 3D | pForth V27 | Memory Move | 0,093s |
| Herbert Lange | SUN Ultra 1 Creator 3D | pForth V27 | Prime | 0,060s |
| Herbert Lange | SUN Ultra 1 Creator 3D | pForth V27 | GCD1 | 0,022s |
| Ralf Neumann | mc-CP/M Z80 4Mhz | FIG-Forth 1.1 | Fib2 | 1m19s |
| Ralf Neumann | Prof80 CP/M Z80 6Mhz | FIG-Forth 1.1 | Fib2 | 53s |
| Carsten Strotmann | Zilog Super-8 20Mhz | Super8 Forth | Fib2 (1000) | 31s |
| Carsten Strotmann | Zilog Super-8 20Mhz | Super8 Forth | Nesting 1m | 20s |
| Carsten Strotmann | Zilog Super-8 20Mhz | Super8 Forth | Nesting 32m | 11m02s |
| Bernd Paysan | Samsung Galaxy Note 2 (Exynos 4core) | Gforth | Fib2 (1000) | 0.01s |
| Thorsten Schoeler | PDP11 | FIG-Forth 1.3 | Fib2 (1000) | 37s |
| Thorsten Schoeler | PDP11 | FIG-Forth 1.3 | Fib1 (25) | 36s |
| Thorsten Schoeler | PDP11 | FIG-Forth 1.3 | Nesting 1m | 49s |
| Norbert Kehrer | Mupid II (BTX Decoder) | FIG-Forth 1.1 | Fib2 (1000) | 210s |
| Norbert Kehrer | Mupid II (BTX Decoder) | FIG-Forth 1.1 | Nesting 1m | 380s |
| Norbert Kehrer | Mupid II (BTX Decoder) | FIG-Forth 1.1 | Sieve | 22s |
| Norbert Kehrer | Mupid II (BTX Decoder) | FIG-Forth 1.1 | GCD 1 | 205s |
| Norbert Kehrer | Mupid II (BTX Decoder) | FIG-Forth 1.1 | GCD 2 | 188s |
| Thorsten Schoeler | NCR 3150 486SX/25Mhz+FPU=Linux 2.0.0 | gforth 0.3.0 | Fib2 (2500) | 9.2s |
| Thorsten Schoeler | NCR 3150 486SX/25Mhz+FPU=Linux 2.0.0 | gforth 0.3.0 | Nesting 1m | 3s |
| Thorsten Schoeler | NCR 3150 486SX/25Mhz+FPU=Linux 2.0.0 | gforth 0.3.0 | Nesting 32m | 1m35s |
| Thorsten Schoeler | NCR 3150 486SX/25Mhz+FPU=Linux 2.0.0 | gforth 0.3.0 | Fib1 | 1m79s |
| Norbert Kehrer | Mupid II (BTX Decoder) | Camel Forth 1.01 | Integer | 68s |
| Norbert Kehrer | Mupid II (BTX Decoder) | Camel Forth 1.01 | Fib 2 (1000) | 150s |
| Norbert Kehrer | Mupid II (BTX Decoder) | Camel Forth 1.01 | Nesting 1m | 292s |
| Norbert Kehrer | Mupid II (BTX Decoder) | Camel Forth 1.01 | Sieve | 15s |
| Norbert Kehrer | Mupid II (BTX Decoder) | Camel Forth 1.01 | GCD 1 | 116s |
| Norbert Kehrer | Mupid II (BTX Decoder) | Camel Forth 1.01 | GCD 2 | 135s |
| Helfried Schürer | robotron K 1510, U 808 D (i8008), 480 kHz (auf FOSY Emulator) | FOSY V1.2P 1988 (FIG) | 1000 FIB2 | 00:00:15 15s |
| Helfried Schürer | robotron K 1510, U 808 D (i8008), 480 kHz (auf FOSY Emulator) | FOSY V1.2P 1988 (FIG) | FIB2-BENCH | 01:51:58 1h 51min 58s |
| Helfried Schürer | robotron K 1510, U 808 D (i8008), 480 kHz (auf FOSY Emulator) | FOSY V1.2P 1988 (FIG) | Nesting 1MILLION | 02:32:05 2h 32min 5s |
At line 180 added one line
Results VCFB October 2014:
At line 182 added 19 lines
||Name || Geraet || Forth || Benchmark || Messung || Skalierung ||
| Ben | IBM PS/2 L40SX | DX-Forth | Integer | 1m12s | 100x |
| Ben | IBM PS/2 L40SX | DX-Forth | Fib2 | 1m03s | 10x |
| Ben | IBM PS/2 L40SX | DX-Forth | GCD1 | 0m29s | 10x |
| Ben | IBM PS/2 L40SX | DX-Forth | GCD2 | 0m42s | 10x |
| Thunder.Bird | Amstrad PPC 512 | DX-Forth | Integer | 4m02s | 10x |
| Thunder.Bird | Amstrad PPC 512 | DX-Forth | Fib2 | 1m45s | 5x |
| Thunder.Bird | Amstrad PPC 512 | DX-Forth | GCD1 | 0m48s | 5x |
| Alexander Muller | IBM PS/2 L40SX | DX-Forth | fib2 | 1m03s | 10x |
| Alexander Muller | IBM PS/2 L40SX | DX-Forth | gcd1 | 0m15s | 5x |
| Alexander Muller | IBM PS/2 L40SX | DX-Forth | integer | 0m07s | 10x |
| Alexander Muller | IBM PS/2 L40SX | DX-Forth | takeuchi | 0m04s | 100x |
| Alexander Muller | Raspberry Pi ARM 700Mhz | Gforth 0.7.0 | gcd1 | 0m04s | 100x |
| Alexander Muller | Raspberry Pi ARM 700Mhz | Gforth 0.7.0 | Takeuchi | 0m02s | 5000x |
| Alexander Muller | Raspberry Pi ARM 700Mhz | Gforth 0.7.0 | Sieve | 0m08s | 100x |
| Michael Mengel | Apple II UltraWarp 13Mhz | Apple II v. 3.2 | Fib2 | 0m21s | 1x |
| Michael Mengel | Apple II UltraWarp 13Mhz | Apple GraForth | Fib2 | 0m11s | 1x |
| Michael Mengel | Apple II 1Mhz | Apple II v. 3.2 | Fib2 | 3m56s | 1x |
| Michael Mengel | Apple II 1Mhz | Apple GraForth | Fib2 | 2m19s | 1x |
At line 33 removed 4 lines
At line 40 removed 3 lines
: beep ( -- ) \ emits an audible beep signal
7 con! ; \ this is hardware and implementation dependent
At line 45 removed one line
beep \ signal of benchmark start
At line 47 removed one line
beep \ signal benchmark end
At line 236 added 2 lines
This version uses a recursive call. Recursive calls are not standardized in early Forth systems. The word to call the current definition can have different names in your forth (recurse, self, ...). Please check you system documentation (if available) or the wordlist (using WORDS or VLIST).
At line 82 changed one line
: fib1-bench 20 0 do i fib1 drop loop ;
: fib1-bench 1000 0 do i fib1 drop loop ;
At line 90 changed one line
0 1 rot 0 ?do
0 1 rot 0 do
At line 94 changed one line
: fib2-bench 20 0 do i fib2 drop loop ;
: fib2-bench 1000 0 do i fib2 drop loop ;
At line 302 added one line
"BOUNDS" can be defined with:
At line 304 added 13 lines
( Convert str len to range for DO-loop )
: bounds ( str len -- str+len str )
over + swap ;
}}}
"OFF" can be defined with:
{{{
( stores zero into address )
: OFF ( addr -- )
0 SWAP ! ;
}}}
{{{
At line 321 added one line
HEX
At line 147 changed one line
8 0 DO dup %01010101 and cnt +!
8 0 DO dup 01010101 and cnt +!
At line 329 added 2 lines
DECIMAL
At line 337 added 4 lines
FIG-Forth derived systems or Forth-79 Systems require the initial value of a variable on the stack.
So instead of "VARIABLE FLAGS 0 FLAGS !" use "0 VARIABLE FLAGS".
At line 161 changed one line
8192 CONSTANT SIZE VARIABLE FLAGS 0 FLAGS ! SIZE ALLOT
8192 CONSTANT SIZE
VARIABLE FLAGS
0 FLAGS !
SIZE ALLOT
At line 381 added one line
"D0=" compares a double integer against zero. It can be defined as:
At line 383 added 5 lines
: D0= ( d d -- f )
+ 0= ;
}}}
{{{
At line 410 added 2 lines
DECIMAL
At line 228 changed one line
0 &10000 0 DO DROP &18 &12 6 tak LOOP ;
0 1000 0 DO DROP 18 12 6 tak LOOP ;
This page (revision-48) was last changed on 03-Feb-2023 15:21 by Stefan Haubenthal  Top