mirror of
https://github.com/irmen/prog8.git
synced 2024-12-27 05:29:38 +00:00
53 lines
1.3 KiB
Lua
53 lines
1.3 KiB
Lua
%import textio
|
|
%import floats
|
|
%zeropage basicsafe
|
|
%option no_sysinit
|
|
|
|
; The "Byte Sieve" test. https://en.wikipedia.org/wiki/Byte_Sieve
|
|
; Note: this program is compatible with C64 and CX16.
|
|
|
|
main {
|
|
sub start() {
|
|
|
|
c64.SETTIM(0, 0, 0)
|
|
|
|
const ubyte ITERS = 10
|
|
uword count
|
|
uword i
|
|
uword prime
|
|
uword k
|
|
const uword SIZEPL = 8191
|
|
uword @zp flags_ptr = memory("flags", SIZEPL, $100)
|
|
|
|
txt.print_ub(ITERS)
|
|
txt.print(" iterations, calculating...\n")
|
|
|
|
repeat ITERS {
|
|
sys.memset(flags_ptr, SIZEPL, 1)
|
|
count = 0
|
|
for i in 0 to SIZEPL-1 {
|
|
if @(flags_ptr+i) {
|
|
prime = i + i + 3
|
|
k = i + prime
|
|
while k <= SIZEPL-1 {
|
|
@(flags_ptr + k) = false
|
|
k += prime
|
|
}
|
|
; txt.print_uw(prime)
|
|
; txt.spc()
|
|
count++
|
|
}
|
|
}
|
|
}
|
|
|
|
txt.print_uw(count)
|
|
txt.print(" primes\n")
|
|
|
|
float time = c64.RDTIM16() / 60.0
|
|
floats.print_f(time)
|
|
txt.print(" sec total = ")
|
|
floats.print_f(time/ITERS)
|
|
txt.print(" sec per iteration\n")
|
|
}
|
|
}
|