Add new attachment

Only authorized users are allowed to upload new attachments.

This page (revision-48) was last changed on 18-Jan-2021 16:05 by Stefan Haubenthal  

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

Only authorized users are allowed to rename pages.

Only authorized users are allowed to delete pages.

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 ;
Version Date Modified Size Author Changes ... Change note
48 18-Jan-2021 16:05 0.163 kB Stefan Haubenthal to previous typo
47 01-Jan-2021 11:29 0.164 kB Carsten Strotmann to previous | to last
46 14-Dec-2014 22:43 36.466 kB Carsten Strotmann to previous | to last
45 14-Dec-2014 22:42 36.605 kB Carsten Strotmann to previous | to last
44 01-Nov-2014 18:28 36.568 kB Carsten Strotmann to previous | to last
43 01-Nov-2014 18:23 36.126 kB Carsten Strotmann to previous | to last
42 01-Nov-2014 18:22 36.126 kB Carsten Strotmann to previous | to last Results VCFB 2014
41 22-Sep-2014 21:43 34.05 kB Carsten Strotmann to previous | to last
« This page (revision-48) was last changed on 18-Jan-2021 16:05 by Stefan Haubenthal