+- HP Forums (https://www.hpmuseum.org/forum)
+-- Forum: HP Software Libraries (/forum-10.html)
+--- Forum: General Software Library (/forum-13.html)
+--- Thread: (48g/50g) CRC-32 (/thread-1814.html)
(48g/50g) CRC-32 - sirhecubus42 - 07-10-2014 05:02 PM
This UserRPL program computes the CRC-32 of a hexadecimal string (e.g. "078F245BA1204C"). I use it at work to generate CRC's that match those generated by the DSU on the Atmel SAMD20 series of Cortex-M0+ microcontrollers. It is based on the implementation found here (since I didn't want a lookup table):
http://www.hackersdelight.org/hdcodetxt/crc.c.txt
My program differs in that the CRC at the end is in one's complement format because that's what the SAMD DSU produces. Adding NOT as the last program statement will give the correct format.
I used "#0h NOT" as the value to initialize the CRC because it takes up fewer bytes than #FFFFFFFFh.
Hex strings with an odd number of characters are assumed to have a leading "0".
Edit: Replaced DUPDUP with two DUPs so it would work on the 48G...not sure about the 48S/SX...don't have one to test.
« 32 STWS
# 0h
NOT
SWAP
DUP
SIZE
DUP
2 MOD
IF 0 =
THEN 2 /
ELSE 2 / 1 -
END
0 SWAP
FOR i
DUP
DUP
SIZE
i 2 * -
DUP
1 -
SWAP
SUB
"#"
SWAP +
"h" +
STR->
ROT
XOR
0 7
FOR j
DUP
# 1h
AND
NEG
# EDB88320h
AND
SWAP
SR
XOR
NEXT
SWAP
NEXT
SWAP
»