prog8/examples/bench8/crc8.p8

31 lines
643 B
Plaintext
Raw Normal View History

2022-08-12 20:02:44 +00:00
%import textio
main {
sub crc8(uword data, uword length) -> ubyte {
ubyte crc = 0
repeat length {
crc ^= @(data)
repeat 8 {
if crc & $80
crc = (crc<<1)^$1d
else
crc<<=1
}
data++
}
return crc
}
sub start() {
txt.print("calculating...")
cbm.SETTIM(0,0,0)
2022-08-12 20:02:44 +00:00
ubyte crc = crc8($e000, $2000)
txt.print_ubhex(crc, true) ; should be $a2
txt.nl()
txt.print_uw(cbm.RDTIM16())
2022-08-12 20:02:44 +00:00
txt.print(" jiffies")
sys.wait(100)
}
}