Kikusui PAX35-10, Руководство по эксплуатации, Страница: 143 / 204

4-39
Chapter 4. REMOTE PROGRAMMING
Dim FAUreg(7) As Integer
Dim ERRreg(7) As Integer
'---------
Status byte register analysis
-----
For i = 7 To 0 Step -1 '
Decomposes query into 8 bits.
If spoll_data - 2 ^ i < 0 Then '
Substitutes 0 and 1 for STBreq(0) to STBreq(7).
STBreg(i) = 0
Else
spoll_data = spoll_data - 2 ^ I
STBreg(i) = 1
End If
Next
If STBreg(0) = 1 Then SRQ_analyze = "FAU" '
If serial poll register bit 0 is 1, FAU is returned.
If STBreg(1) = 1 Then SRQ_analyze = "PON" '
If serial poll register bit 1 is 1, PON is returned.
If STBreg(2) = 1 Then SRQ_analyze = "SEQ END" '
If serial poll register bit 2 is 1, SE is returned.
If STBreg(3) = 1 Then SRQ_analyze = "ERR" '
If serial poll register bit 3 is 1, ERR is returned.
If STBreg(4) = 1 Then SRQ_analyze = "MCB" '
If serial poll register bit 4 is 1, MCB is returned.
'If STBreg(6) = 1 Then SRQ_analyze = "RQS" ' If serial poll register bit 6 is 1, RQS is returned.
'--------
Fault register analysis
------------
If STBreg(0) = 1 Then '
Fault register summary bit ON
Call Tx("FAU?") '
Fault register query
spoll_data = Val(g_strRxd) '
Converts FAU? query into numerical data.
For i = 7 To 0 Step -1 '
Decomposes query into 8 bits.
If spoll_data - 2 ^ i < 0 Then '
0 and 1 are substituted for FAUreq(0) to FAUreq(7).
FAUreg(i) = 0
Else
spoll_data = spoll_data - 2 ^ i
FAUreg(i) = 1
End If
Next
If FAUreg(0) = 1 Then SRQ_analyze = "OVP" '
If bit 0 is 1, OVP is returned.
If FAUreg(1) = 1 Then SRQ_analyze = "OCP" '
If bit 1 is 1, OCP is returned.
If FAUreg(2) = 1 Then SRQ_analyze = "OHP" '
If bit 2 is 1, OHP is returned.
If FAUreg(4) = 1 Then SRQ_analyze = "CV" '
If bit 4 is 1, CV is returned.
If FAUreg(5) = 1 Then SRQ_analyze = "CC" '
If bit 5 is 1, CC is returned.
If FAUreg(6) = 1 Then SRQ_analyze = "OC" ' If bit 6 is 1, OC is returned.
End If
'------------
Error register analysis
-----------
If STBreg(3) = 1 Then '
Error register summary bit ON
Call Tx("ERR?") '
Fault register query
spoll_data = Val(g_strRxd)
Select Case spoll_data
Case 0
SRQ_analyze = "No error."
Case 1
SRQ_analyze = "I/F syntax error."
Case 2
SRQ_analyze = "I/F argument error."
Case 51
SRQ_analyze = "Parity error."
Case 52
SRQ_analyze = "Franing error."
Case 53
SRQ_analyze = "RX Buff overflow."
Case 54
SRQ_analyze = "RX Buff overflow."