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 158 removed 3 lines
: beep ( -- ) \ emits an audible beep signal
7 con! ; \ this is hardware and implementation dependent
At line 163 removed one line
beep \ signal of benchmark start
At line 165 removed one line
beep \ signal benchmark end
At line 189 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 200 changed one line
: fib1-bench 20 0 do i fib1 drop loop ;
: fib1-bench 1000 0 do i fib1 drop loop ;
At line 212 changed one line
: fib2-bench 20 0 do i fib2 drop loop ;
: fib2-bench 1000 0 do i fib2 drop loop ;
At line 255 added one line
"BOUNDS" can be defined with:
At line 257 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 274 added one line
HEX
At line 265 changed one line
8 0 DO dup %01010101 and cnt +!
8 0 DO dup 01010101 and cnt +!
At line 282 added 2 lines
DECIMAL
At line 290 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 279 changed one line
8192 CONSTANT SIZE VARIABLE FLAGS 0 FLAGS ! SIZE ALLOT
8192 CONSTANT SIZE
VARIABLE FLAGS
0 FLAGS !
SIZE ALLOT
At line 357 added 2 lines
DECIMAL
At line 346 changed one line
0 &10000 0 DO DROP &18 &12 6 tak LOOP ;
0 10000 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