Fuji Electric PXG-9 Communication Instruction Manual page 74

' ********************************************************************************************
10000 ' CRC calculation subroutine IN:Txdat(Txsu) / OUT CRC1,CRC2 ****************************
CRC = &HFFFF
For i = 0 To Txsu Step 1
CRC = CRC Xor Txdat(i)
For J = 1 To 8 Step 1
CT = CRC And &H1
If CRC < 0 Then CH = 1 Else: CH = 0: GoTo 11000
CRC = CRC And &H7FFF
11000 CRC = Int(CRC / 2)
If CH = 1 Then CRC = CRC Or &H4000
If CT = 1 Then CRC = CRC Xor &HA001
Next J
Next i
CRC1 = CRC And &HFF
CRC2 = ((CRC And &HFF00) / 256 And &HFF)
Return
20000 ' CRC calculation subroutine IN:Ansdat(Ansu) / OUT CRC1,CRC2 ***************************
CRC = &HFFFF
For i = 0 To Ansu Step 1
CRC = CRC Xor Ansdat(i)
For J = 1 To 8 Step 1
Chapter
CT = CRC And &H1
8
If CRC < 0 Then CH = 1 Else: CH = 0: GoTo 21000
CRC = CRC And &H7FFF
21000 CRC = Int(CRC / 2)
If CH = 1 Then CRC = CRC Or &H4000
If CT = 1 Then CRC = CRC Xor &HA001
Next J
Next i
CRC1 = CRC And &HFF
CRC2 = ((CRC And &HFF00) / 256 And &HFF)
Return
End Sub
– 72 –