ferth 0.2.0

A safe, native-sized Forth. no_std compatible.
Documentation 
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20

variable sieve-end

: sieve ( limit -- n )
    dup sieve-end !
    here over 1+ erase
    1 here c! 1 here 1+ c!
    2
    begin dup dup * 2 pick < while
        here over + c@ 0= if
            dup dup *
            begin
                here over + 1 swap c!
                over +
                dup sieve-end @ >
            until
            drop
        then
        1+
    repeat drop
    0 swap 1+ 0 do i here + c@ 0= if 1+ then loop ;