Campbell CR1000

Section 7. Installation
'If bit in OR bit in The result
'Flags Is Bin/Hex Is Is
'---------- ---------- ----------
' 0 0 0
' 0 1 1
' 1 0 1
' 1 1 1
'Binary equivalent of Hex:
If Alarm(1) Then Flags = Flags OR &h1 ' &b1
If Alarm(2) Then Flags = Flags OR &h2 ' &b10
If Alarm(3) Then Flags = Flags OR &h4 ' &b100
If Alarm(4) Then Flags = Flags OR &h8 ' &b1000
If Alarm(5) Then Flags = Flags OR &h10 ' &b10000
If Alarm(6) Then Flags = Flags OR &h20 ' &b100000
If Alarm(7) Then Flags = Flags OR &h40 ' &b1000000
If Alarm(8) Then Flags = Flags OR &h80 ' &b10000000
If Alarm(9) Then Flags = Flags OR &h100 ' &b100000000
If Alarm(10) Then Flags = Flags OR &h200 ' &b1000000000
If Alarm(11) Then Flags = Flags OR &h400 ' &b10000000000
If Alarm(12) Then Flags = Flags OR &h800 ' &b100000000000
If Alarm(13) Then Flags = Flags OR &h1000 ' &b1000000000000
If Alarm(14) Then Flags = Flags OR &h2000 ' &b10000000000000
If Alarm(15) Then Flags = Flags OR &h4000 ' &b100000000000000
If Alarm(16) Then Flags = Flags OR &h8000 ' &b1000000000000000
If Alarm(17) Then Flags = Flags OR &h10000 ' &b10000000000000000
If Alarm(18) Then Flags = Flags OR &h20000 ' &b100000000000000000
If Alarm(19) Then Flags = Flags OR &h40000 ' &b1000000000000000000
If Alarm(20) Then Flags = Flags OR &h80000 ' &b10000000000000000000
If Alarm(21) Then Flags = Flags OR &h100000 ' &b100000000000000000000
If Alarm(22) Then Flags = Flags OR &h200000 ' &b1000000000000000000000
If Alarm(23) Then Flags = Flags OR &h400000 ' &b10000000000000000000000
If Alarm(24) Then Flags = Flags OR &h800000 ' &b100000000000000000000000
If Alarm(25) Then Flags = Flags OR &h1000000 ' &b1000000000000000000000000
If Alarm(26) Then Flags = Flags OR &h2000000 ' &b10000000000000000000000000
If Alarm(27) Then Flags = Flags OR &h4000000 ' &b100000000000000000000000000
If Alarm(28) Then Flags = Flags OR &h8000000 ' &b1000000000000000000000000000
If Alarm(29) Then Flags = Flags OR &h10000000 ' &b10000000000000000000000000000
If Alarm(30) Then Flags = Flags OR &h20000000 ' &b100000000000000000000000000000
If Alarm(31) Then Flags = Flags OR &h40000000 ' &b1000000000000000000000000000000
If Alarm(32) Then Flags = Flags OR &h80000000 '&b10000000000000000000000000000000
'Note &HFF = &B11111111. By shifting at 8 bit increments along 32-bit 'Flags' (Long
'data type), the first 8 bits in the four Longs FlagsBool8(4) are loaded with alarm
'states. Only the first 8 bits of each Long 'FlagsBool8' are stored when converted
'to Bool8.
'Logical AND bitwise comparison
'If bit in OR bit in The result
'Flags Is Bin/Hex Is Is
'---------- ---------- ----------
' 0 0 0
' 0 1 0
' 1 0 0
' 1 1 1
201