+/* Internal Headers */
+static guchar calc_chksum_14(guchar* dta);
+static int chk_msg14(struct sr_dev_inst *sdi);
+
+/** Set or clear flags in devc->mqflags. */
+static void setmqf(struct dev_context *devc, uint64_t flags, gboolean set)
+{
+ if (set)
+ devc->mqflags |= flags;
+ else
+ devc->mqflags &= ~flags;
+}
+
+/** Decode current type and measured value, Metrahit 12-16. */
+static void decode_ctmv_16(uint8_t ctmv, struct dev_context *devc)
+{
+ devc->mq = 0;
+ devc->unit = 0;
+ devc->mqflags = 0;
+
+ switch (ctmv) {
+ case 0x00: /* 0000 - */
+ break;
+ case 0x01: /* 0001 mV DC */
+ devc->scale1000 = -1; /* Fall through */
+ case 0x02: /* 0010 V DC */
+ case 0x03: /* 0011 V AC+DC */
+ case 0x04: /* 0100 V AC */
+ devc->mq = SR_MQ_VOLTAGE;
+ devc->unit = SR_UNIT_VOLT;
+ if (ctmv <= 0x03)
+ devc->mqflags |= SR_MQFLAG_DC;
+ if (ctmv >= 0x03) {
+ devc->mqflags |= SR_MQFLAG_AC;
+ if (devc->model >= METRAHIT_16S)
+ devc->mqflags |= SR_MQFLAG_RMS;
+ }
+ break;
+ case 0x05: /* 0101 Hz (15S/16S only) */
+ case 0x06: /* 0110 kHz (15S/16S only) */
+ devc->mq = SR_MQ_FREQUENCY;
+ devc->unit = SR_UNIT_HERTZ;
+ if (ctmv == 0x06)
+ devc->scale1000 = 1;
+ break;
+ case 0x07: /* 0111 % (15S/16S only) */
+ devc->mq = SR_MQ_DUTY_CYCLE;
+ devc->unit = SR_UNIT_PERCENTAGE;
+ break;
+ case 0x08: /* 1000 Diode */
+ devc->mq = SR_MQ_VOLTAGE;
+ devc->unit = SR_UNIT_VOLT;
+ devc->mqflags |= SR_MQFLAG_DIODE;
+ break;
+ case 0x09: /* 1001 Ohm, °C */
+ case 0x0a: /* 1010 kOhm */
+ case 0x0b: /* 1011 MOhm */
+ devc->mq = SR_MQ_RESISTANCE; /* Changed to temp. later if req.*/
+ devc->unit = SR_UNIT_OHM;
+ devc->scale1000 = ctmv - 0x09;
+ break;
+ case 0x0c: /* 1100 nF (15S/16S only) */
+ case 0x0d: /* 1101 µF (15S/16S only) */
+ devc->mq = SR_MQ_CAPACITANCE;
+ devc->unit = SR_UNIT_FARAD;
+ if (ctmv == 0x0c)
+ devc->scale1000 = -3;
+ else
+ devc->scale1000 = -2;
+ break;
+ case 0x0e: /* mA, µA */
+ devc->scale1000 = -1; /* Fall through. */
+ case 0x0f: /* A */
+ devc->mq = SR_MQ_CURRENT;
+ devc->unit = SR_UNIT_AMPERE;
+ if (devc->model == METRAHIT_16S)
+ devc->mqflags |= SR_MQFLAG_RMS;
+ /* 16I A only with clamp, RMS questionable. */
+ break;
+ }
+}
+
+/**
+ * Decode range/sign/acdc byte special chars (Metrahit 12-16).
+ *
+ * @param[in] rs Range and sign byte.
+ */
+static void decode_rs_16(uint8_t rs, struct dev_context *devc)
+{
+ sr_spew("decode_rs_16(%d) scale = %f", rs, devc->scale);
+
+ if (rs & 0x04) /* Sign */
+ devc->scale *= -1.0;
+
+ if (devc->mq == SR_MQ_CURRENT) {
+ if (rs & 0x08) /* Current is AC */
+ devc->mqflags |= SR_MQFLAG_AC;
+ else
+ devc->mqflags |= SR_MQFLAG_DC;
+ }
+
+ switch (rs & 0x03) {
+ case 0:
+ if (devc->mq == SR_MQ_VOLTAGE) /* V */
+ devc->scale *= 0.1;
+ else if (devc->mq == SR_MQ_CURRENT) /* 000.0 µA */
+ devc->scale *= 0.00001;
+ else if (devc->mq == SR_MQ_RESISTANCE) {
+ if (devc->buflen >= 10) {
+ /* °C with 10 byte msg type, otherwise GOhm. */
+ devc->mq = SR_MQ_TEMPERATURE;
+ devc->unit = SR_UNIT_CELSIUS;
+ devc->scale *= 0.01;
+ } else if (devc->scale1000 == 2) {
+ /* 16I Iso 500/1000V 3 GOhm */
+ devc->scale *= 0.1;
+ }
+ }
+ break;
+ case 1:
+ devc->scale *= 0.0001;
+ break;
+ case 2:
+ devc->scale *= 0.001;
+ break;
+ case 3:
+ devc->scale *= 0.01;
+ break;
+ }
+}
+
+/**
+ * Decode special chars, Metrahit 12-16.
+ *
+ * @param[in] spc Special characters 1 and 2 (s1 | (s2 << 4)).
+ */
+static void decode_spc_16(uint8_t spc, struct dev_context *devc)
+{
+ /* xxxx1xxx ON */
+ /* TODO: What does that mean? Power on? The 16I sets this. */
+ /* xxxxx1xx BEEP */
+ /* xxxxxx1x Low battery */
+ /* xxxxxxx1 FUSE */
+ /* 1xxxxxxx MIN */
+ setmqf(devc, SR_MQFLAG_MIN, spc & 0x80);
+
+ /* x1xxxxxx MAN */
+ setmqf(devc, SR_MQFLAG_AUTORANGE, !(spc & 0x40));
+
+ /* xx1xxxxx DATA */
+ setmqf(devc, SR_MQFLAG_HOLD, spc & 0x20);
+
+ /* xxx1xxxx MAX */
+ setmqf(devc, SR_MQFLAG_MAX, spc & 0x10);
+}
+
+/** Decode current type and measured value, Metrahit 18. */
+static void decode_ctmv_18(uint8_t ctmv, struct dev_context *devc)
+{
+ devc->mq = 0;
+ devc->unit = 0;
+ devc->mqflags = 0;
+
+ switch (ctmv) {
+ case 0x00: /* 0000 - */
+ break;
+ case 0x01: /* 0001 V AC */
+ case 0x02: /* 0010 V AC+DC */
+ case 0x03: /* 0011 V DC */
+ devc->mq = SR_MQ_VOLTAGE;
+ devc->unit = SR_UNIT_VOLT;
+ if (ctmv <= 0x02)
+ devc->mqflags |= (SR_MQFLAG_AC | SR_MQFLAG_RMS);
+ if (ctmv >= 0x02)
+ devc->mqflags |= SR_MQFLAG_DC;
+ break;
+ case 0x04: /* 0100 Ohm/Ohm with buzzer */
+ devc->mq = SR_MQ_RESISTANCE;
+ devc->unit = SR_UNIT_OHM;
+ break;
+ case 0x05: /* 0101 Diode/Diode with buzzer */
+ devc->mq = SR_MQ_VOLTAGE;
+ devc->unit = SR_UNIT_VOLT;
+ devc->mqflags |= SR_MQFLAG_DIODE;
+ break;
+ case 0x06: /* 0110 °C */
+ devc->mq = SR_MQ_TEMPERATURE;
+ devc->unit = SR_UNIT_CELSIUS;
+ break;
+ case 0x07: /* 0111 F */
+ devc->mq = SR_MQ_CAPACITANCE;
+ devc->unit = SR_UNIT_FARAD;
+ break;
+ case 0x08: /* 1000 mA DC */
+ case 0x09: /* 1001 A DC */
+ case 0x0a: /* 1010 mA AC+DC */
+ case 0x0b: /* 1011 A AC+DC */
+ devc->mq = SR_MQ_CURRENT;
+ devc->unit = SR_UNIT_AMPERE;
+ devc->mqflags |= SR_MQFLAG_DC;
+ if (ctmv >= 0x0a)
+ devc->mqflags |= (SR_MQFLAG_AC | SR_MQFLAG_RMS);
+ if ((ctmv == 0x08) || (ctmv == 0x0a))
+ devc->scale1000 = -1;
+ break;
+ case 0x0c: /* 1100 Hz */
+ devc->mq = SR_MQ_FREQUENCY;
+ devc->unit = SR_UNIT_HERTZ;
+ break;
+ case 0x0d: /* 1101 dB */
+ devc->mq = SR_MQ_VOLTAGE;
+ devc->unit = SR_UNIT_DECIBEL_VOLT;
+ devc->mqflags |= SR_MQFLAG_AC; /* dB available for AC only */
+ break;
+ case 0x0e: /* 1110 Events AC, Events AC+DC. Actually delivers just
+ * current voltage via IR, nothing more. */
+ devc->mq = SR_MQ_VOLTAGE;
+ devc->unit = SR_UNIT_VOLT;
+ devc->mqflags |= SR_MQFLAG_AC | SR_MQFLAG_DC | SR_MQFLAG_RMS;
+ break;
+ case 0x0f: /* 1111 Clock */
+ devc->mq = SR_MQ_TIME;
+ devc->unit = SR_UNIT_SECOND;
+ devc->mqflags |= SR_MQFLAG_DURATION;
+ break;
+ }
+}
+
+/**
+ * Decode range/sign/acdc byte special chars, Metrahit 18.
+ *
+ * @param[in] rs Rance/sign byte.
+ */
+static void decode_rs_18(uint8_t rs, struct dev_context *devc)
+{
+ int range;
+
+ /* Sign */
+ if (((devc->scale > 0) && (rs & 0x08)) ||
+ ((devc->scale < 0) && !(rs & 0x08)))
+ devc->scale *= -1.0;
+
+ /* Range */
+ range = rs & 0x07;
+ switch (devc->mq) {
+ case SR_MQ_VOLTAGE:
+ if (devc->unit == SR_UNIT_DECIBEL_VOLT) {
+ devc->scale *= pow(10.0, -2);
+ /*
+ * When entering relative mode, the device switches
+ * from 10 byte to 6 byte msg format. Unfortunately
+ * it switches back to 10 byte when the second value
+ * is measured, so that's not sufficient to
+ * identify relative mode.
+ */
+ }
+ else if (devc->vmains_29S)
+ devc->scale *= pow(10.0, range - 2);
+ else
+ devc->scale *= pow(10.0, range - 5);
+ break;
+ case SR_MQ_CURRENT:
+ if (devc->scale1000 == -1)
+ devc->scale *= pow(10.0, range - 5);
+ else
+ devc->scale *= pow(10.0, range - 4);
+ break;
+ case SR_MQ_RESISTANCE:
+ devc->scale *= pow(10.0, range - 2);
+ break;
+ case SR_MQ_FREQUENCY:
+ devc->scale *= pow(10.0, range - 2);
+ break;
+ case SR_MQ_TEMPERATURE:
+ devc->scale *= pow(10.0, range - 2);
+ break;
+ case SR_MQ_CAPACITANCE:
+ devc->scale *= pow(10.0, range - 13);
+ break;
+ /* TODO: 29S Mains measurements. */
+ }
+}
+
+/**
+ * Decode special chars, Metrahit 18.
+ *
+ * @param[in] spc Special characters 1 and 2 (s1 | (s2 << 4)).
+ */
+static void decode_spc_18(uint8_t spc, struct dev_context *devc)
+{
+ /* xxxx1xxx ZERO */
+ /* xxxxx1xx BEEP */
+ /* xxxxxx1x Low battery */
+ /* xxxxxxx1 Fuse */
+
+ if (devc->mq == SR_MQ_TIME) {
+ /* xxx1xxxx Clock running: 1; stop: 0 */
+ sr_spew("Clock running: %d", spc >> 4);
+ } else {
+ /* 1xxxxxxx MAN */
+ setmqf(devc, SR_MQFLAG_AUTORANGE, !(spc & 0x80));
+
+ /* x1xxxxxx MIN */
+ setmqf(devc, SR_MQFLAG_MIN, spc & 0x40);
+
+ /* xx1xxxxx MAX */
+ setmqf(devc, SR_MQFLAG_MAX, spc & 0x20);
+
+ /* xxx1xxxx DATA */
+ setmqf(devc, SR_MQFLAG_HOLD, spc & 0x10);
+ }
+}
+
+/**
+ * Decode current type and measured value, Metrahit 2x.
+ *
+ * @param[in] ctmv Current type and measured value (v1 | (v2 << 4)).
+ */
+static void decode_ctmv_2x(uint8_t ctmv, struct dev_context *devc)
+{
+ if ((ctmv > 0x1c) || (!devc)) {
+ sr_err("decode_ctmv_2x(%d): invalid param(s)!", ctmv);
+ return;
+ }
+
+ devc->mq = 0;
+ devc->unit = 0;
+ devc->mqflags = 0;
+
+ switch (ctmv) {
+ /* 00000 unused */
+ case 0x01: /* 00001 V DC */
+ case 0x02: /* 00010 V AC+DC */
+ case 0x03: /* 00011 V AC */
+ devc->mq = SR_MQ_VOLTAGE;
+ devc->unit = SR_UNIT_VOLT;
+ if (ctmv <= 0x02)
+ devc->mqflags |= SR_MQFLAG_DC;
+ if (ctmv >= 0x02) {
+ devc->mqflags |= SR_MQFLAG_AC;
+ if (devc->model >= METRAHIT_24S)
+ devc->mqflags |= SR_MQFLAG_RMS;
+ }
+ break;
+ case 0x04: /* 00100 mA DC */
+ case 0x05: /* 00101 mA AC+DC */
+ devc->scale1000 = -1;
+ case 0x06: /* 00110 A DC */
+ case 0x07: /* 00111 A AC+DC */
+ devc->mq = SR_MQ_CURRENT;
+ devc->unit = SR_UNIT_AMPERE;
+ devc->mqflags |= SR_MQFLAG_DC;
+ if ((ctmv == 0x05) || (ctmv == 0x07)) {
+ devc->mqflags |= SR_MQFLAG_AC;
+ if (devc->model >= METRAHIT_24S)
+ devc->mqflags |= SR_MQFLAG_RMS;
+ }
+ break;
+ case 0x08: /* 01000 Ohm */
+ devc->mq = SR_MQ_RESISTANCE;
+ devc->unit = SR_UNIT_OHM;
+ break;
+ case 0x09: /* 01001 F */
+ devc->mq = SR_MQ_CAPACITANCE;
+ devc->unit = SR_UNIT_FARAD;
+ devc->scale *= 0.1;
+ break;
+ case 0x0a: /* 01010 V dB */
+ devc->mq = SR_MQ_VOLTAGE;
+ devc->unit = SR_UNIT_DECIBEL_VOLT;
+ devc->mqflags |= SR_MQFLAG_AC;
+ if (devc->model >= METRAHIT_24S)
+ devc->mqflags |= SR_MQFLAG_RMS;
+ break;
+ case 0x0b: /* 01011 Hz U ACDC */
+ case 0x0c: /* 01100 Hz U AC */
+ devc->mq = SR_MQ_FREQUENCY;
+ devc->unit = SR_UNIT_HERTZ;
+ devc->mqflags |= SR_MQFLAG_AC;
+ if (ctmv <= 0x0b)
+ devc->mqflags |= SR_MQFLAG_DC;
+ break;
+ case 0x0d: /* 01101 W on power, mA range (29S only) */
+ devc->scale *= 0.001;
+ /* Fall through! */
+ case 0x0e: /* 01110 W on power, A range (29S only) */
+ devc->mq = SR_MQ_POWER;
+ devc->unit = SR_UNIT_WATT;
+ break;
+ case 0x0f: /* 01111 Diode */
+ case 0x10: /* 10000 Diode with buzzer (actually cont. with voltage) */
+ devc->unit = SR_UNIT_VOLT;
+ if (ctmv == 0x0f) {
+ devc->mq = SR_MQ_VOLTAGE;
+ devc->mqflags |= SR_MQFLAG_DIODE;
+ } else {
+ devc->mq = SR_MQ_CONTINUITY;
+ devc->scale *= 0.00001;
+ }
+ devc->unit = SR_UNIT_VOLT;
+ break;
+ case 0x11: /* 10001 Ohm with buzzer */
+ devc->mq = SR_MQ_CONTINUITY;
+ devc->unit = SR_UNIT_OHM;
+ devc->scale1000 = -1;
+ break;
+ case 0x12: /* 10010 Temperature */
+ devc->mq = SR_MQ_TEMPERATURE;
+ devc->unit = SR_UNIT_CELSIUS;
+ /* This can be Fahrenheit. That is detected by range=4 later. */
+ break;
+ /* 0x13 10011, 0x14 10100 unsed */
+ case 0x15: /* 10101 Press (29S only) */
+ /* TODO: What does that mean? Possibly phase shift?
+ Then we need a unit/flag for it. */
+ devc->mq = SR_MQ_GAIN;
+ devc->unit = SR_UNIT_PERCENTAGE;
+ break;
+ case 0x16: /* 10110 Pulse W (29S only) */
+ /* TODO: Own unit and flag for this! */
+ devc->mq = SR_MQ_POWER;
+ devc->unit = SR_UNIT_WATT;
+ break;
+ case 0x17: /* 10111 TRMS V on mains (29S only) */
+ devc->mq = SR_MQ_VOLTAGE;
+ devc->unit = SR_UNIT_VOLT;
+ devc->mqflags |= (SR_MQFLAG_AC | SR_MQFLAG_RMS);
+ devc->vmains_29S = TRUE;
+ break;
+ case 0x18: /* 11000 Counter (zero crossings of a signal) */
+ devc->mq = SR_MQ_VOLTAGE;
+ devc->unit = SR_UNIT_UNITLESS;
+ break;
+ case 0x19: /* 11001 Events U ACDC */
+ case 0x1a: /* 11010 Events U AC */
+ /* TODO: No unit or flags for this yet! */
+ devc->mq = SR_MQ_VOLTAGE;
+ devc->unit = SR_UNIT_UNITLESS;
+ devc->mqflags |= SR_MQFLAG_AC;
+ if (ctmv <= 0x19)
+ devc->mqflags |= SR_MQFLAG_DC;
+ break;
+ case 0x1b: /* 11011 pulse on mains (29S only) */
+ /* TODO: No unit or flags for this yet! */
+ devc->mq = SR_MQ_VOLTAGE;
+ devc->unit = SR_UNIT_UNITLESS;
+ devc->mqflags |= SR_MQFLAG_AC;
+ break;
+ case 0x1c: /* 11100 dropout on mains (29S only) */
+ /* TODO: No unit or flags for this yet! */
+ devc->mq = SR_MQ_VOLTAGE;
+ devc->unit = SR_UNIT_UNITLESS;
+ devc->mqflags |= SR_MQFLAG_AC;
+ break;
+ case 0x1f: /* 11111 Undocumented: 25S in stopwatch mode.
+ The value is voltage, not time, so treat it such. */
+ devc->mq = SR_MQ_VOLTAGE;
+ devc->unit = SR_UNIT_VOLT;
+ devc->mqflags |= SR_MQFLAG_DC;
+ break;
+ case 0x20: /* 100000 Undocumented: 25S in event count mode.
+ Value is 0 anyway. */
+ devc->mq = SR_MQ_VOLTAGE;
+ devc->unit = SR_UNIT_UNITLESS;
+ break;
+ default:
+ sr_err("decode_ctmv_2x(%d, ...): Unknown ctmv!", ctmv);
+ break;
+ }
+}
+
+/**
+ * Decode range/sign/acdc byte special chars, Metrahit 2x, table TR.
+ *
+ * @param[in] rs Range/sign byte.
+ */
+static void decode_rs_2x(uint8_t rs, struct dev_context *devc)
+{
+ int range;
+
+ /* Sign */
+ if (((devc->scale > 0) && (rs & 0x08)) ||
+ ((devc->scale < 0) && !(rs & 0x08)))
+ devc->scale *= -1.0;
+
+ /* Range */
+ range = rs & 0x07;
+ switch (devc->mq) {
+ case SR_MQ_VOLTAGE:
+ if (devc->unit == SR_UNIT_DECIBEL_VOLT)
+ devc->scale *= pow(10.0, -3);
+ else if (devc->vmains_29S)
+ devc->scale *= pow(10.0, range - 2);
+ else
+ devc->scale *= pow(10.0, range - 6);
+ break;
+ case SR_MQ_CURRENT:
+ if (devc->scale1000 != -1) /* uA, mA */
+ range += 1;/* mA and A ranges differ by 10^4, not 10^3!*/
+ devc->scale *= pow(10.0, range - 6);
+ break;
+ case SR_MQ_RESISTANCE:
+ devc->scale *= pow(10.0, range - 3);
+ break;
+ case SR_MQ_FREQUENCY:
+ devc->scale *= pow(10.0, range - 3);
+ break;
+ case SR_MQ_TEMPERATURE:
+ if (range == 4) /* Indicator for °F */
+ devc->unit = SR_UNIT_FAHRENHEIT;
+ devc->scale *= pow(10.0, - 2);
+ break;
+ case SR_MQ_CAPACITANCE:
+ if (range == 7)
+ range -= 1; /* Same value as range 6 */
+ devc->scale *= pow(10.0, range - 13);
+ break;
+ /* TODO: 29S Mains measurements. */
+ }
+}
+
+/**
+ * Decode range/sign/acdc byte special chars, Metrahit 2x, table TR 2.
+ *
+ * @param[in] rs Range/sign byte.
+ */
+static void decode_rs_2x_TR2(uint8_t rs, struct dev_context *devc)
+{
+ int range;
+
+ /* Range */
+ range = rs & 0x07;
+ switch (devc->mq) {
+ case SR_MQ_CURRENT:
+ if (devc->scale1000 == -1) /* mA */
+ switch(range) {
+ case 0: case 1: /* 100, 300 µA */
+ devc->scale *= pow(10.0, -6);
+ break;
+ case 2: case 3: /* 1, 3 mA */
+ devc->scale *= pow(10.0, -5);
+ break;
+ case 4: case 5: /* 10, 30 mA */
+ devc->scale *= pow(10.0, -4);
+ break;
+ case 6: case 7: /* 100, 300 mA */
+ devc->scale *= pow(10.0, -3);
+ break;
+ }
+ else /* A */
+ switch(range) {
+ case 0: case 1: /* 1, 3 A */
+ devc->scale *= pow(10.0, -5);
+ break;
+ case 2: /* 10 A */
+ devc->scale *= pow(10.0, -4);
+ break;
+ }
+ break;
+ default:
+ decode_rs_2x(rs, devc);
+ return;
+ }
+
+ /* Sign */
+ if (((devc->scale > 0) && (rs & 0x08)) ||
+ ((devc->scale < 0) && !(rs & 0x08)))
+ devc->scale *= -1.0;
+}
+
+
+/**
+ * Decode special chars (Metrahit 2x).
+ *
+ * @param[in] spc Special characters 1 and 2 (s1 | (s2 << 4)).
+ */
+static void decode_spc_2x(uint8_t spc, struct dev_context *devc)
+{
+ /* xxxxxxx1 Fuse */
+
+ /* xxxxxx1x Low battery */
+
+ /* xxxxx1xx BEEP */
+
+ /* xxxx1xxx ZERO */
+
+ /* xxx1xxxx DATA */
+ setmqf(devc, SR_MQFLAG_HOLD, spc & 0x10);
+
+ /* x11xxxxx unused */
+ /* 1xxxxxxx MAN */
+ setmqf(devc, SR_MQFLAG_AUTORANGE, !(spc & 0x80));
+}
+
+/** Clean range and sign. */
+static void clean_rs_v(struct dev_context *devc)
+{
+ devc->value = 0.0;
+ devc->scale = 1.0;
+}
+
+/** Clean current type, measured variable, range and sign. */
+static void clean_ctmv_rs_v(struct dev_context *devc)
+{
+ devc->mq = 0;
+ devc->unit = 0;
+ devc->mqflags = 0;
+ devc->scale1000 = 0;
+ devc->vmains_29S = FALSE;
+ clean_rs_v(devc);
+}
+
+/** Send prepared value. */
+static void send_value(struct sr_dev_inst *sdi)
+{
+ struct dev_context *devc;
+ struct sr_datafeed_analog analog;
+ struct sr_datafeed_packet packet;
+
+ devc = sdi->priv;
+
+ memset(&analog, 0, sizeof(analog));
+ analog.channels = sdi->channels;
+ analog.num_samples = 1;
+ analog.mq = devc->mq;
+ analog.unit = devc->unit;
+ analog.mqflags = devc->mqflags;
+ analog.data = &devc->value;
+
+ memset(&packet, 0, sizeof(packet));
+ packet.type = SR_DF_ANALOG;
+ packet.payload = &analog;
+ sr_session_send(devc->cb_data, &packet);
+
+ devc->num_samples++;
+}
+
+/** Process 6-byte data message, Metrahit 1x/2x send mode. */
+static void process_msg_dta_6(struct sr_dev_inst *sdi)
+{
+ struct dev_context *devc;
+ int cnt;
+ uint8_t dgt;
+
+ devc = sdi->priv;
+ clean_rs_v(devc);
+
+ /* Byte 0, range and sign */
+ if (devc->model <= METRAHIT_16X)
+ decode_rs_16(bc(devc->buf[0]), devc);
+ else if (devc->model < METRAHIT_2X)
+ decode_rs_18(bc(devc->buf[0]), devc);
+ else {
+ decode_rs_2x(bc(devc->buf[0]), devc);
+ devc->scale *= 10; /* Compensate for format having only 5 digits, decode_rs_2x() assumes 6. */
+ }
+
+ /* Bytes 1-5, digits (ls first). */
+ for (cnt = 0; cnt < 5; cnt++) {
+ dgt = bc(devc->buf[1 + cnt]);
+ if (dgt >= 10) {
+ /* 10 Overload; on model <= 16X also 11 possible. */
+ devc->value = NAN;
+ devc->scale = 1.0;
+ break;
+ }
+ devc->value += pow(10.0, cnt) * dgt;
+ }
+
+ sr_spew("process_msg_dta_6() value=%f scale=%f scale1000=%d",
+ devc->value, devc->scale, devc->scale1000);
+ if (devc->value != NAN)
+ devc->value *= devc->scale * pow(1000.0, devc->scale1000);
+
+ /* Create and send packet. */
+ send_value(sdi);
+}
+
+/** Process 5-byte info message, Metrahit 1x/2x. */
+static void process_msg_inf_5(struct sr_dev_inst *sdi)
+{
+ struct dev_context *devc;
+ enum model model;
+
+ devc = sdi->priv;
+
+ clean_ctmv_rs_v(devc);
+
+ /* Process byte 0 */
+ model = gmc_decode_model_sm(bc(devc->buf[0]));
+ if (model != devc->model) {
+ sr_warn("Model mismatch in data: Detected %s, now %s",
+ gmc_model_str(devc->model), gmc_model_str(model));
+ }
+
+ /* Process bytes 1-4 */
+ if (devc->model <= METRAHIT_16X) {
+ decode_ctmv_16(bc(devc->buf[1]), devc);
+ decode_spc_16(bc(devc->buf[2]) | (bc(devc->buf[3]) << 4), devc);
+ decode_rs_16(bc(devc->buf[4]), devc);
+ } else if (devc->model <= METRAHIT_18S) {
+ decode_ctmv_18(bc(devc->buf[1]), devc);
+ decode_spc_18(bc(devc->buf[2]) | (bc(devc->buf[3]) << 4), devc);
+ decode_rs_18(bc(devc->buf[4]), devc);
+ } else { /* Must be Metrahit 2x */
+ decode_ctmv_2x(bc(devc->buf[1]), devc);
+ decode_spc_2x(bc(devc->buf[2]) | (bc(devc->buf[3]) << 4), devc);
+ decode_rs_2x(bc(devc->buf[4]), devc);
+ }
+}
+
+/** Process 10-byte info/data message, Metrahit 15+. */
+static void process_msg_inf_10(struct sr_dev_inst *sdi)
+{
+ struct dev_context *devc;
+ int cnt;
+ uint8_t dgt;
+
+ devc = sdi->priv;
+
+ process_msg_inf_5(sdi);
+
+ /* Now decode numbers */
+ for (cnt = 0; cnt < 5; cnt++) {
+ dgt = bc(devc->buf[5 + cnt]);
+ if (dgt == 11) { /* Empty digit */
+ dgt = 0;
+ }
+ else if (dgt >= 12) { /* Overload */
+ devc->value = NAN;
+ devc->scale = 1.0;
+ break;
+ }
+ devc->value += pow(10.0, cnt) * dgt;
+ }
+ sr_spew("process_msg_inf_10() value=%f scale=%f scalet=%d",
+ devc->value, devc->scale, devc->scale1000);
+
+ if (devc->value != NAN)
+ devc->value *= devc->scale * pow(1000.0, devc->scale1000);
+
+ /* Create and send packet. */
+ send_value(sdi);
+}
+
+/** Decode send interval (Metrahit 2x only). */
+static const char *decode_send_interval(uint8_t si)
+{
+ switch (si) {
+ case 0x00:
+ return "0.05";
+ case 0x01:
+ return "0.1";
+ case 0x02:
+ return "0.2";
+ case 0x03:
+ return "0.5";
+ case 0x04:
+ return "00:01";
+ case 0x05:
+ return "00:02";
+ case 0x06:
+ return "00:05";
+ case 0x07:
+ return "00:10";
+ case 0x08:
+ return "00:20";
+ case 0x09:
+ return "00:30";
+ case 0x0a:
+ return "01:00";
+ case 0x0b:
+ return "02:00";
+ case 0x0c:
+ return "05:00";
+ case 0x0d:
+ return "10:00";
+ case 0x0e:
+ return "----";
+ case 0x0f:
+ return "data";
+ default:
+ return "Unknown value";
+ }
+}
+
+/** Process 13-byte info/data message, Metrahit 2x. */
+static void process_msg_inf_13(struct sr_dev_inst *sdi)
+{
+ struct dev_context *devc;
+ enum model model;
+ int cnt;
+ uint8_t dgt;
+
+ devc = sdi->priv;
+
+ clean_ctmv_rs_v(devc);
+
+ /* Byte 0, model. */
+ model = gmc_decode_model_sm(bc(devc->buf[0]));
+ if (model != devc->model) {
+ sr_warn("Model mismatch in data: Detected %s, now %s",
+ gmc_model_str(devc->model), gmc_model_str(model));
+ }
+
+ /* Bytes 1-4, 11. */
+ decode_ctmv_2x(bc(devc->buf[1]) | (bc(devc->buf[11]) << 4), devc);
+ decode_spc_2x(bc(devc->buf[2]) | (bc(devc->buf[3]) << 4), devc);
+ decode_rs_2x(bc(devc->buf[4]), devc);
+
+ /* Bytes 5-10, digits (ls first). */
+ for (cnt = 0; cnt < 6; cnt++) {
+ dgt = bc(devc->buf[5 + cnt]);
+ if (dgt == 10) { /* Overload */
+ devc->value = NAN;
+ devc->scale = 1.0;
+ break;
+ }
+ devc->value += pow(10.0, cnt) * dgt;
+ }
+ sr_spew("process_msg_inf_13() value=%f scale=%f scale1000=%d mq=%d "
+ "unit=%d mqflags=0x%02llx", devc->value, devc->scale,
+ devc->scale1000, devc->mq, devc->unit, devc->mqflags);
+ if (devc->value != NAN)
+ devc->value *= devc->scale * pow(1000.0, devc->scale1000);
+
+ /* Byte 12, Send Interval */
+ sr_spew("Send interval: %s", decode_send_interval(bc(devc->buf[12])));
+
+ /* Create and send packet. */
+ send_value(sdi);
+}
+
+/** Dump contents of 14-byte message.
+ * @param buf Pointer to array of 14 data bytes.
+ * @param[in] raw Write only data bytes, no interpretation.
+ */
+void dump_msg14(guchar* buf, gboolean raw)
+{
+ if (!buf)
+ return;
+
+ if (raw)
+ sr_spew("msg14: 0x %02x %02x %02x %02x %02x %02x %02x %02x "
+ "%02x %02x %02x %02x %02x %02x",
+ buf[0], buf[1], buf[2], buf[3], buf[4], buf[5], buf[6],
+ buf[7], buf[8], buf[9], buf[10], buf[11], buf[12],
+ buf[13]);
+ else
+ sr_spew("msg14: 0x a=%d c1=%02x c2=%02x cmd=%02x dta=%02x "
+ "%02x %02x %02x %02x %02x %02x %02x %02x chs=%02x",
+ buf[1] == 0x2b?buf[0] >> 2:buf[0] % 0x0f, buf[1], buf[2], buf[3], buf[4], buf[5],
+ buf[6], buf[7], buf[8], buf[9], buf[10], buf[11],
+ buf[12], buf[13]);
+}
+
+/** Calc checksum for 14 byte message type.
+ *
+ * @param[in] dta Pointer to array of 13 data bytes.
+ * @return Checksum.
+ */
+static guchar calc_chksum_14(guchar* dta)
+{
+ guchar cnt, chs;
+
+ for (chs = 0, cnt = 0; cnt < 13; cnt++)
+ chs += dta[cnt];
+
+ return (64 - chs) & MASK_6BITS;
+}
+
+/** Check 14-byte message, Metrahit 2x. */
+static int chk_msg14(struct sr_dev_inst *sdi)
+{
+ struct dev_context *devc;
+ int retc;
+ gboolean isreq; /* Message is request to multimeter (otherwise response) */
+ uint8_t addr; /* Adaptor address */
+
+ retc = SR_OK;
+
+ /* Check parameters and message */
+ if (!sdi || !(devc = sdi->priv))
+ return SR_ERR_ARG;
+
+ if (devc->buflen != 14) {
+ sr_err("process_msg_14(): Msg len 14 expected!");
+ return SR_ERR_ARG;
+ }
+
+ isreq = devc->buf[1] == 0x2b;
+ if (isreq)
+ addr = devc->buf[0] >> 2;
+ else
+ addr = devc->buf[0] & 0x0f;
+
+ if ((devc->addr != addr) && !(isreq && (addr == 0))) {
+ sr_err("process_msg_14(): Address mismatch, msg for other device!");
+ retc = SR_ERR_ARG;
+ }
+
+ if (devc->buf[1] == 0) { /* Error msg from device! */
+ retc = SR_ERR_ARG;
+ switch (devc->buf[2]) {
+ case 1: /* Not used */
+ sr_err("Device: Illegal error code!");
+ break;
+ case 2: /* Incorrect check sum of received block */
+ sr_err("Device: Incorrect checksum in cmd!");
+ break;
+ case 3: /* Incorrect length of received block */
+ sr_err("Device: Incorrect block length in cmd!");
+ break;
+ case 4: /* Incorrect 2nd or 3rd byte */
+ sr_err("Device: Incorrect byte 2 or 3 in cmd!");
+ break;
+ case 5: /* Parameter out of range */
+ sr_err("Device: Parameter out of range!");
+ break;
+ default:
+ sr_err("Device: Unknown error code!");
+ }
+ retc = SR_ERR_ARG;
+ }
+ else if (!isreq && ((devc->buf[1] != 0x27) || (devc->buf[2] != 0x3f))) {
+ sr_err("process_msg_14(): byte 1/2 unexpected!");
+ retc = SR_ERR_ARG;
+ }
+
+ if (calc_chksum_14(devc->buf) != devc->buf[13]) {
+ sr_err("process_msg_14(): Invalid checksum!");
+ retc = SR_ERR_ARG;
+ }
+
+ if (retc != SR_OK)
+ dump_msg14(devc->buf, TRUE);
+
+ return retc;
+}
+
+/** Check 14-byte message, Metrahit 2x. */
+SR_PRIV int process_msg14(struct sr_dev_inst *sdi)
+{
+ struct dev_context *devc;
+ int retc;
+ uint8_t addr;
+ uint8_t cnt, dgt;
+
+ if ((retc = chk_msg14(sdi)) != SR_OK)
+ return retc;
+
+ devc = sdi->priv;
+
+ clean_ctmv_rs_v(devc);
+ addr = devc->buf[0] & MASK_6BITS;
+ if (addr != devc->addr)
+ sr_info("Device address mismatch %d/%d!", addr, devc->addr);
+
+ switch (devc->buf[3]) { /* That's the command this reply is for */
+ /* 0 cannot occur, the respective message is not a 14-byte message */
+ case 1: /* Read first free and occupied address */
+ sr_spew("Cmd %d unimplemented!", devc->buf[3]);
+ break;
+ case 2: /* Clear all RAM in multimeter */
+ sr_spew("Cmd %d unimplemented!", devc->buf[3]);
+ break;
+ case 3: /* Read firmware version and status */
+ sr_spew("Cmd 3, Read firmware and status", devc->buf[3]);
+ switch (devc->cmd_idx) {
+ case 0:
+ devc->fw_ver_maj = devc->buf[5];
+ devc->fw_ver_min = devc->buf[4];
+ sr_spew("Firmware version %d.%d", (int)devc->fw_ver_maj, (int)devc->fw_ver_min);
+ sr_spew("Rotary Switch Position (1..10): %d", (int)devc->buf[6]);
+ /** Docs say values 0..9, but that's not true */
+ sr_spew("Measurement Function: %d ", (int)devc->buf[7]);
+ decode_ctmv_2x(devc->buf[7], devc);
+ sr_spew("Range: 0x%x", devc->buf[8]);
+ decode_rs_2x_TR2(devc->buf[8] & 0x0f, devc); /* Docs wrong, uses conversion table TR_2! */
+ devc->autorng = (devc->buf[8] & 0x20) == 0;
+ // TODO 9, 10: 29S special functions
+ devc->ubatt = 0.1 * (float)devc->buf[11];
+ devc->model = gmc_decode_model_bd(devc->buf[12]);
+ sr_spew("Model=%s, battery voltage=%2.1f V", gmc_model_str(devc->model), (double)devc->ubatt);
+ break;
+ case 1:
+ sr_spew("Internal version %d.%d", (int)devc->buf[5], (int)devc->buf[4]);
+ sr_spew("Comm mode: 0x%x", (int)devc->buf[6]);
+ sr_spew("Block cnt%%64: %d", (int)devc->buf[7]);
+ sr_spew("drpCi: %d drpCh: %d", (int)devc->buf[8], (int)devc->buf[9]);
+ // Semantics undocumented. Possibly Metrahit 29S dropouts stuff?
+ break;
+ default:
+ sr_spew("Cmd 3: Unknown cmd_idx=%d", devc->cmd_idx);
+ break;
+ }
+ break;
+ case 4: /* Set real time, date, sample rate, trigger, ... */
+ sr_spew("Cmd %d unimplemented!", devc->buf[3]);
+ break;
+ case 5: /* Read real time, date, sample rate, trigger... */
+ sr_spew("Cmd %d unimplemented!", devc->buf[3]);
+ break;
+ case 6: /* Set modes or power off */
+ sr_spew("Cmd %d unimplemented!", devc->buf[3]);
+ break;
+ case 7: /* Set measurement function, range, autom/man. */
+ sr_spew("Cmd %d unimplemented!", devc->buf[3]);
+ break;
+ case 8: /* Get one measurement value */
+ sr_spew("Cmd 8, get one measurement value");
+ sr_spew("Measurement Function: %d ", (int)devc->buf[5]);
+ decode_ctmv_2x(devc->buf[5], devc);
+ if (!(devc->buf[6] & 0x10)) /* If bit4=0, old data. */
+ return SR_OK;
+
+ decode_rs_2x_TR2(devc->buf[6] & 0x0f, devc); // The docs say conversion table TR_3, but that does not work
+ setmqf(devc, SR_MQFLAG_AUTORANGE, devc->autorng);
+ /* 6 digits */
+ for (cnt = 0; cnt < 6; cnt++) {
+ dgt = bc(devc->buf[7 + cnt]);
+ if (dgt == 10) { /* Overload */
+ devc->value = NAN;
+ devc->scale = 1.0;
+ break;
+ }
+ else if (dgt == 13) { /* FUSE */
+ sr_err("FUSE!");
+ }
+ else if (dgt == 14) { /* Function recognition mode, OPEN */
+ sr_info("Function recognition mode, OPEN!");
+ devc->value = NAN;
+ devc->scale = 1.0;
+ break;
+ }
+ devc->value += pow(10.0, cnt) * dgt;
+ }
+ sr_spew("process_msg14() value=%f scale=%f scale1000=%d mq=%d "
+ "unit=%d mqflags=0x%02llx", devc->value, devc->scale,
+ devc->scale1000, devc->mq, devc->unit, devc->mqflags);
+ if (devc->value != NAN)
+ devc->value *= devc->scale * pow(1000.0, devc->scale1000);
+
+ send_value(sdi);
+
+ break;
+ default:
+ sr_spew("Unknown cmd %d!", devc->buf[3]);
+ break;
+ }
+
+ return SR_OK;
+}
+
+/** Data reception callback function. */