Carsten's AmForth Notes

1 Compiling AmForth (ARM) on Linux

These are my little notes about AmForth.

2 AmForth (ARM) Benchmark

System	Sieve	Benchmark 2	Benchmark 3
Raspberry 1
Raspberry 2
Raspberry 3
Raspberry 4
Hercules eCafe
MNT Reform

2.1 Sieve Benchmark

\ Sieve Benchmark -- the classic Forth benchmark    cas 20101204

 8192 CONSTANT SIZE
 VARIABLE FLAGS
 0 FLAGS !
 SIZE ALLOT

 : DO-PRIME
   FLAGS SIZE 1 FILL  ( set array )
   0 ( 0 COUNT ) SIZE 0
   DO FLAGS I + C@
     IF I DUP + 3 + DUP I +
        BEGIN DUP SIZE <
        WHILE 0   OVER FLAGS +  C!  OVER +  REPEAT
        DROP DROP 1+
     THEN
 LOOP
 . ." Primes" CR ;