Sieve of Eratosthenes benchmarks for the Z8 FORTH microcontroller
Sieve of Eratosthenes benchmarks for the Z8 FORTH microcontroller
Sieve of Eratosthenes benchmarks for the Z8 FORTH microcontroller
You also want an ePaper? Increase the reach of your titles
YUMPU automatically turns print PDFs into web optimized ePapers that Google loves.
1.<br />
2.<br />
3.<br />
4.<br />
5.<br />
6.<br />
7.<br />
8.<br />
9.<br />
IO.<br />
11.<br />
12.<br />
13.<br />
14.<br />
15.<br />
16.<br />
8190 CONSTANT SIZE<br />
SIZE I+ ARRAY-VARIAELE FLAGS<br />
: DO-PRIME<br />
FLAGS SIZE I+ 1 FILL<br />
0<br />
SIZE 0 DO<br />
FLAGS I + C@ IF<br />
I DUP + 3 + DUP I +<br />
BEG IN<br />
DUP SIZE