Private Shared usp_crc As UINT16 ' initialise per packet with $FFFF.
Private Sub process_crc(ByVal ucData As UCHAR8)
Dim i As Integer
usp_crc = usp_crc Xor ucData
For i = 0 To 7 ' Process each Bit
If usp_crc And 1 Then
	usp_crc >>=1
	usp_crc = usp_crc Xor &HA001
Else
		usp_crc >>=1
End If
Next i
End Sub