mirror of
https://github.com/irmen/prog8.git
synced 2024-12-03 13:49:23 +00:00
31 lines
638 B
Lua
31 lines
638 B
Lua
%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 (expecting $a2)...")
|
|
cbm.SETTIM(0,0,0)
|
|
ubyte crc = crc8($e000, $2000)
|
|
txt.print_ubhex(crc, true)
|
|
txt.nl()
|
|
txt.print_uw(cbm.RDTIM16())
|
|
txt.print(" jiffies")
|
|
sys.wait(300)
|
|
}
|
|
}
|