mirror of
https://github.com/irmen/prog8.git
synced 2024-06-10 05:29:29 +00:00
e35cfd4971
Unfortunately a few routines (minf, maxf, clampf) remain unchanged, because removing the 'f' would make them clash with a builtin function. floats.rndf -> floats.rnd floats.parse_f -> floats.parse floats.rndseedf -> floats.rndseed floats.print_f -> floats.print floats.str_f -> floats.tostr
33 lines
761 B
Lua
33 lines
761 B
Lua
%import textio
|
|
%import floats
|
|
|
|
main {
|
|
|
|
sub crc16(uword data, uword length) -> uword {
|
|
uword crc = 0
|
|
repeat length {
|
|
crc ^= mkword(@(data), 0)
|
|
repeat 8 {
|
|
if crc & $8000
|
|
crc = (crc<<1)^$1021
|
|
else
|
|
crc<<=1
|
|
}
|
|
data++
|
|
}
|
|
return crc
|
|
}
|
|
|
|
sub start() {
|
|
txt.print("calculating (expecting $ffd0)...\n")
|
|
txt.print(" if mismatch: first check if kernal is maybe updated?\n")
|
|
cbm.SETTIM(0,0,0)
|
|
uword crc = crc16($e000, $2000)
|
|
txt.print_uwhex(crc, true)
|
|
txt.nl()
|
|
floats.print(cbm.RDTIM16() / 60.0)
|
|
txt.print(" seconds")
|
|
sys.wait(9999)
|
|
}
|
|
}
|