corrects how each channel should be cleared

db/channels.db

@@ -40,11 +40,45 @@ record(bi, "$(INSTR)$(NAME):S$(CHANNEL)")
 ################################################################################
 # Count Commands
 
+# Unfortunately, clearing the channels is somewhat complicated as a result of
+# the addition of more channels over time and minimal changes to the underlying interface
+#
+# Urs Greuter provided the following explanation:
+#
+# bei den Befehlen CC r und HC r ist der Parameter r als bit-Maske zu verstehen:
+#
+# Bit0: Zähler Channel 1
+# Bit2: Zähler Channel 2
+# Bit3: Zähler Channel 3
+# Bit4: Zähler Channel 4
+# Bit5: Zähler Channel Timer
+# Bit6: Zähler Channel 5
+# Bit7: Zähler Channel 6
+# Bit8: Zähler Channel 7
+# Bit9: Zähler Channel 8
+#
+# Beispiele:
+# CC 1 setzt den Zähler des Channels 1 zurück
+# CC 4 setzt den Zähler des Channels 3 zurück
+# CC 5 setzt gleichzeitig die Zähler der Channels 1 und 3 zurück
+# CC 16 ist gleichbedeutend wie CT (Timer zurücksetzen)
+# CC 511 setzt gleichzeitig die Zähler aller Kanäle (auch des Timers) zurück.
+
+record(calc, "$(INSTR)$(NAME):BM$(CHANNEL)")
+{
+ field(DESC, "Bit Mask for Channel")
+ field(INPA, $(CHANNEL))
+ field(CALC, "A > 4 ? 2 ^ A : 2 ^ (A-1)")
+ field(PINI, "YES")
+}
+
 record(longout, "$(INSTR)$(NAME):C$(CHANNEL)")
 {
  field(DESC, "Clear the current channel count")
  field(DTYP, "stream")
- field(OUT, "@$(PROTO) clearChannel($(INSTR)$(NAME):, $(CHANNEL)) $(ASYN_PORT)")
+ field(OMSL, "closed_loop")
+ field(DOL, "$(INSTR)$(NAME):BM$(CHANNEL) NPP")
+ field(OUT, "@$(PROTO) clearChannel($(INSTR)$(NAME):) $(ASYN_PORT)")
  field(FLNK, "$(INSTR)$(NAME):T$(CHANNEL)")
 }