(crc16) ( crc ch -- crc )


Vocabulary
checksums.crc16

Inputs
crcan object
chan object


Outputs
crcan object


Definition
USING: kernel math sequences.private ;

IN: checksums.crc16

: (crc16) ( crc ch -- crc )
dupd bitxor 255 bitand crc16-table nth-unsafe swap -8 shift
bitxor ; inline