[libsigrok.git] / src / hardware / victor-dmm / protocol.c

/*
 * This file is part of the libsigrok project.
 *
 * Copyright (C) 2012 Bert Vermeulen <bert@biot.com>
 *
 * This program is free software: you can redistribute it and/or modify
 * it under the terms of the GNU General Public License as published by
 * the Free Software Foundation, either version 3 of the License, or
 * (at your option) any later version.
 *
 * This program is distributed in the hope that it will be useful,
 * but WITHOUT ANY WARRANTY; without even the implied warranty of
 * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
 * GNU General Public License for more details.
 *
 * You should have received a copy of the GNU General Public License
 * along with this program.  If not, see <http://www.gnu.org/licenses/>.
 */

#include <glib.h>
#include <string.h>
#include <math.h>
#include "libsigrok.h"
#include "libsigrok-internal.h"
#include "protocol.h"

/* Reverse the high nibble into the low nibble */
static uint8_t decode_digit(uint8_t in)
{
	uint8_t out, i;

	out = 0;
	in >>= 4;
	for (i = 0x08; i; i >>= 1) {
		out >>= 1;
		if (in & i)
			out |= 0x08;
	}

	return out;
}

static void decode_buf(struct sr_dev_inst *sdi, unsigned char *data)
{
	struct sr_datafeed_packet packet;
	struct sr_datafeed_analog2 analog;
	struct sr_analog_encoding encoding;
	struct sr_analog_meaning meaning;
	struct sr_analog_spec spec;
	struct dev_context *devc;
	long factor, ivalue;
	uint8_t digits[4];
	gboolean is_duty, is_continuity, is_diode, is_ac, is_dc, is_auto;
	gboolean is_hold, is_max, is_min, is_relative, minus;
	float fvalue;

	devc = sdi->priv;

	digits[0] = decode_digit(data[12]);
	digits[1] = decode_digit(data[11]);
	digits[2] = decode_digit(data[10]);
	digits[3] = decode_digit(data[9]);

	if (digits[0] == 0x0f && digits[1] == 0x00 && digits[2] == 0x0a &&
			digits[3] == 0x0f)
		/* The "over limit" (OL) display comes through like this */
		ivalue = -1;
	else if (digits[0] > 9 || digits[1] > 9 || digits[2] > 9 || digits[3] > 9)
		/* An invalid digit in any position denotes no value. */
		ivalue = -2;
	else {
		ivalue = digits[0] * 1000;
		ivalue += digits[1] * 100;
		ivalue += digits[2] * 10;
		ivalue += digits[3];
	}

	/* Decimal point position */
	factor = 0;
	switch (data[7] >> 4) {
	case 0x00:
		factor = 0;
		break;
	case 0x02:
		factor = 1;
		break;
	case 0x04:
		factor = 2;
		break;
	case 0x08:
		factor = 3;
		break;
	default:
		sr_err("Unknown decimal point byte: 0x%.2x.", data[7]);
		break;
	}

	/* Minus flag */
	minus = data[2] & 0x01;

	/* Mode detail symbols on the right side of the digits */
	is_duty = is_continuity = is_diode = FALSE;
	switch (data[4]) {
	case 0x00:
		/* None. */
		break;
	case 0x01:
		/* Micro */
		factor += 6;
		break;
	case 0x02:
		/* Milli */
		factor += 3;
		break;
	case 0x04:
		/* Kilo */
		ivalue *= 1000;
		break;
	case 0x08:
		/* Mega */
		ivalue *= 1000000;
		break;
	case 0x10:
		/* Continuity shows up as Ohm + this bit */
		is_continuity = TRUE;
		break;
	case 0x20:
		/* Diode tester is Volt + this bit */
		is_diode = TRUE;
		break;
	case 0x40:
		is_duty = TRUE;
		break;
	case 0x80:
		/* Never seen */
		sr_dbg("Unknown mode right detail: 0x%.2x.", data[4]);
		break;
	default:
		sr_dbg("Unknown/invalid mode right detail: 0x%.2x.", data[4]);
		break;
	}

	/* Scale flags on the right, continued */
	is_max = is_min = FALSE;
	if (data[5] & 0x04)
		is_max = TRUE;
	if (data[5] & 0x08)
		is_min = TRUE;
	if (data[5] & 0x40)
		/* Nano */
		factor += 9;

	/* Mode detail symbols on the left side of the digits */
	is_auto = is_dc = is_ac = is_hold = is_relative = FALSE;
	if (data[6] & 0x04)
		is_auto = TRUE;
	if (data[6] & 0x08)
		is_dc = TRUE;
	if (data[6] & 0x10)
		is_ac = TRUE;
	if (data[6] & 0x20)
		is_relative = TRUE;
	if (data[6] & 0x40)
		is_hold = TRUE;

	fvalue = (float)ivalue / pow(10, factor);
	if (minus)
		fvalue = -fvalue;

	memset(&analog, 0, sizeof(struct sr_datafeed_analog2));
	memset(&encoding, 0, sizeof(struct sr_analog_encoding));
	memset(&meaning, 0, sizeof(struct sr_analog_meaning));
	memset(&spec, 0, sizeof(struct sr_analog_spec));

	/* Measurement mode */
	meaning.channels = sdi->channels;
	meaning.mq = 0;
	switch (data[3]) {
	case 0x00:
		if (is_duty) {
			meaning.mq = SR_MQ_DUTY_CYCLE;
			meaning.unit = SR_UNIT_PERCENTAGE;
		} else
			sr_dbg("Unknown measurement mode: %.2x.", data[3]);
		break;
	case 0x01:
		if (is_diode) {
			meaning.mq = SR_MQ_VOLTAGE;
			meaning.unit = SR_UNIT_VOLT;
			meaning.mqflags |= SR_MQFLAG_DIODE;
			if (ivalue < 0)
				fvalue = NAN;
		} else {
			if (ivalue < 0)
				break;
			meaning.mq = SR_MQ_VOLTAGE;
			meaning.unit = SR_UNIT_VOLT;
			if (is_ac)
				meaning.mqflags |= SR_MQFLAG_AC;
			if (is_dc)
				meaning.mqflags |= SR_MQFLAG_DC;
		}
		break;
	case 0x02:
		meaning.mq = SR_MQ_CURRENT;
		meaning.unit = SR_UNIT_AMPERE;
		if (is_ac)
			meaning.mqflags |= SR_MQFLAG_AC;
		if (is_dc)
			meaning.mqflags |= SR_MQFLAG_DC;
		break;
	case 0x04:
		if (is_continuity) {
			meaning.mq = SR_MQ_CONTINUITY;
			meaning.unit = SR_UNIT_BOOLEAN;
			fvalue = ivalue < 0 ? 0.0 : 1.0;
		} else {
			meaning.mq = SR_MQ_RESISTANCE;
			meaning.unit = SR_UNIT_OHM;
			if (ivalue < 0)
				fvalue = INFINITY;
		}
		break;
	case 0x08:
		/* Never seen */
		sr_dbg("Unknown measurement mode: 0x%.2x.", data[3]);
		break;
	case 0x10:
		meaning.mq = SR_MQ_FREQUENCY;
		meaning.unit = SR_UNIT_HERTZ;
		break;
	case 0x20:
		meaning.mq = SR_MQ_CAPACITANCE;
		meaning.unit = SR_UNIT_FARAD;
		break;
	case 0x40:
		meaning.mq = SR_MQ_TEMPERATURE;
		meaning.unit = SR_UNIT_CELSIUS;
		break;
	case 0x80:
		meaning.mq = SR_MQ_TEMPERATURE;
		meaning.unit = SR_UNIT_FAHRENHEIT;
		break;
	default:
		sr_dbg("Unknown/invalid measurement mode: 0x%.2x.", data[3]);
		break;
	}
	if (meaning.mq == 0)
		return;

	if (is_auto)
		meaning.mqflags |= SR_MQFLAG_AUTORANGE;
	if (is_hold)
		meaning.mqflags |= SR_MQFLAG_HOLD;
	if (is_max)
		meaning.mqflags |= SR_MQFLAG_MAX;
	if (is_min)
		meaning.mqflags |= SR_MQFLAG_MIN;
	if (is_relative)
		meaning.mqflags |= SR_MQFLAG_RELATIVE;

	encoding.unitsize = sizeof(float);
	encoding.is_float = TRUE;
#ifdef WORDS_BIGENDIAN
	encoding.is_bigendian = TRUE;
#else
	encoding.is_bigendian = FALSE;
#endif
	encoding.digits = 4; /* Values are always 4-digit numbers. */
	encoding.is_digits_decimal = TRUE;
	encoding.scale.p = 1;
	encoding.scale.q = 1;
	encoding.offset.p = 0;
	encoding.offset.q = 1;

	spec.spec_digits = encoding.digits;

	analog.data = &fvalue;
	analog.num_samples = 1;
	analog.encoding = &encoding;
	analog.meaning = &meaning;
	analog.spec = &spec;

	packet.type = SR_DF_ANALOG2;
	packet.payload = &analog;
	sr_session_send(devc->cb_data, &packet);

	devc->num_samples++;
}

SR_PRIV int victor_dmm_receive_data(struct sr_dev_inst *sdi, unsigned char *buf)
{
	GString *dbg;
	int i;
	unsigned char data[DMM_DATA_SIZE];
	unsigned char obfuscation[DMM_DATA_SIZE] = "jodenxunickxia";
	unsigned char shuffle[DMM_DATA_SIZE] = {
		6, 13, 5, 11, 2, 7, 9, 8, 3, 10, 12, 0, 4, 1
	};

	for (i = 0; i < DMM_DATA_SIZE && buf[i] == 0; i++);
	if (i == DMM_DATA_SIZE) {
		/* This DMM outputs all zeroes from time to time, just ignore it. */
		sr_dbg("Received all zeroes.");
		return SR_OK;
	}

	/* Deobfuscate and reorder data. */
	for (i = 0; i < DMM_DATA_SIZE; i++)
		data[shuffle[i]] = (buf[i] - obfuscation[i]) & 0xff;

	if (sr_log_loglevel_get() >= SR_LOG_SPEW) {
		dbg = g_string_sized_new(128);
		g_string_printf(dbg, "Deobfuscated.");
		for (i = 0; i < DMM_DATA_SIZE; i++)
			g_string_append_printf(dbg, " %.2x", data[i]);
		sr_spew("%s", dbg->str);
		g_string_free(dbg, TRUE);
	}

	decode_buf(sdi, data);

	return SR_OK;
}
Commit	Line	Data
ac3898d2 BV	1	/*
	2	* This file is part of the libsigrok project.
	3	*
	4	* Copyright (C) 2012 Bert Vermeulen <bert@biot.com>
	5	*
	6	* This program is free software: you can redistribute it and/or modify
	7	* it under the terms of the GNU General Public License as published by
	8	* the Free Software Foundation, either version 3 of the License, or
	9	* (at your option) any later version.
	10	*
	11	* This program is distributed in the hope that it will be useful,
	12	* but WITHOUT ANY WARRANTY; without even the implied warranty of
	13	* MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
	14	* GNU General Public License for more details.
	15	*
	16	* You should have received a copy of the GNU General Public License
	17	* along with this program. If not, see <http://www.gnu.org/licenses/>.
	18	*/
	19
ac3898d2	20	#include <glib.h>
fa773062 UH	21	#include <string.h>
fa773062 UH	22	#include <math.h>
ac3898d2 BV	23	#include "libsigrok.h"
	24	#include "libsigrok-internal.h"
	25	#include "protocol.h"
ff945683 BV	26
	27	/* Reverse the high nibble into the low nibble */
	28	static uint8_t decode_digit(uint8_t in)
	29	{
	30	uint8_t out, i;
	31
	32	out = 0;
	33	in >>= 4;
	34	for (i = 0x08; i; i >>= 1) {
	35	out >>= 1;
	36	if (in & i)
	37	out \|= 0x08;
	38	}
	39
	40	return out;
	41	}
	42
69e19dd7	43	static void decode_buf(struct sr_dev_inst sdi, unsigned char data)
ff945683 BV	44	{
ff945683 BV	45	struct sr_datafeed_packet packet;
a84a26d9 UH	46	struct sr_datafeed_analog2 analog;
	47	struct sr_analog_encoding encoding;
	48	struct sr_analog_meaning meaning;
	49	struct sr_analog_spec spec;
69e19dd7	50	struct dev_context *devc;
ff945683 BV	51	long factor, ivalue;
	52	uint8_t digits[4];
	53	gboolean is_duty, is_continuity, is_diode, is_ac, is_dc, is_auto;
	54	gboolean is_hold, is_max, is_min, is_relative, minus;
	55	float fvalue;
	56
69e19dd7 BV	57	devc = sdi->priv;
69e19dd7 BV	58
ff945683 BV	59	digits[0] = decode_digit(data[12]);
	60	digits[1] = decode_digit(data[11]);
	61	digits[2] = decode_digit(data[10]);
	62	digits[3] = decode_digit(data[9]);
	63
	64	if (digits[0] == 0x0f && digits[1] == 0x00 && digits[2] == 0x0a &&
	65	digits[3] == 0x0f)
	66	/* The "over limit" (OL) display comes through like this */
	67	ivalue = -1;
	68	else if (digits[0] > 9 \|\| digits[1] > 9 \|\| digits[2] > 9 \|\| digits[3] > 9)
	69	/* An invalid digit in any position denotes no value. */
	70	ivalue = -2;
	71	else {
	72	ivalue = digits[0] * 1000;
	73	ivalue += digits[1] * 100;
	74	ivalue += digits[2] * 10;
	75	ivalue += digits[3];
	76	}
	77
	78	/* Decimal point position */
6375e1c3	79	factor = 0;
ff945683 BV	80	switch (data[7] >> 4) {
	81	case 0x00:
	82	factor = 0;
	83	break;
	84	case 0x02:
	85	factor = 1;
	86	break;
	87	case 0x04:
	88	factor = 2;
	89	break;
	90	case 0x08:
	91	factor = 3;
	92	break;
	93	default:
fa773062 UH	94	sr_err("Unknown decimal point byte: 0x%.2x.", data[7]);
fa773062 UH	95	break;
ff945683 BV	96	}
	97
	98	/* Minus flag */
	99	minus = data[2] & 0x01;
	100
	101	/* Mode detail symbols on the right side of the digits */
	102	is_duty = is_continuity = is_diode = FALSE;
	103	switch (data[4]) {
	104	case 0x00:
	105	/* None. */
	106	break;
	107	case 0x01:
	108	/* Micro */
	109	factor += 6;
	110	break;
	111	case 0x02:
	112	/* Milli */
	113	factor += 3;
	114	break;
	115	case 0x04:
	116	/* Kilo */
	117	ivalue *= 1000;
	118	break;
	119	case 0x08:
	120	/* Mega */
	121	ivalue *= 1000000;
	122	break;
	123	case 0x10:
	124	/* Continuity shows up as Ohm + this bit */
	125	is_continuity = TRUE;
	126	break;
	127	case 0x20:
	128	/* Diode tester is Volt + this bit */
	129	is_diode = TRUE;
	130	break;
	131	case 0x40:
	132	is_duty = TRUE;
	133	break;
	134	case 0x80:
	135	/* Never seen */
fa773062	136	sr_dbg("Unknown mode right detail: 0x%.2x.", data[4]);
ff945683 BV	137	break;
ff945683 BV	138	default:
fa773062 UH	139	sr_dbg("Unknown/invalid mode right detail: 0x%.2x.", data[4]);
fa773062 UH	140	break;
ff945683 BV	141	}
	142
	143	/* Scale flags on the right, continued */
b178c79d	144	is_max = is_min = FALSE;
ff945683 BV	145	if (data[5] & 0x04)
	146	is_max = TRUE;
	147	if (data[5] & 0x08)
	148	is_min = TRUE;
	149	if (data[5] & 0x40)
	150	/* Nano */
	151	factor += 9;
	152
	153	/* Mode detail symbols on the left side of the digits */
	154	is_auto = is_dc = is_ac = is_hold = is_relative = FALSE;
	155	if (data[6] & 0x04)
	156	is_auto = TRUE;
	157	if (data[6] & 0x08)
	158	is_dc = TRUE;
	159	if (data[6] & 0x10)
	160	is_ac = TRUE;
	161	if (data[6] & 0x20)
	162	is_relative = TRUE;
	163	if (data[6] & 0x40)
	164	is_hold = TRUE;
	165
	166	fvalue = (float)ivalue / pow(10, factor);
	167	if (minus)
	168	fvalue = -fvalue;
	169
a84a26d9 UH	170	memset(&analog, 0, sizeof(struct sr_datafeed_analog2));
	171	memset(&encoding, 0, sizeof(struct sr_analog_encoding));
	172	memset(&meaning, 0, sizeof(struct sr_analog_meaning));
	173	memset(&spec, 0, sizeof(struct sr_analog_spec));
ff945683 BV	174
ff945683 BV	175	/* Measurement mode */
a84a26d9 UH	176	meaning.channels = sdi->channels;
a84a26d9 UH	177	meaning.mq = 0;
ff945683 BV	178	switch (data[3]) {
	179	case 0x00:
	180	if (is_duty) {
a84a26d9 UH	181	meaning.mq = SR_MQ_DUTY_CYCLE;
a84a26d9 UH	182	meaning.unit = SR_UNIT_PERCENTAGE;
ff945683	183	} else
fa773062	184	sr_dbg("Unknown measurement mode: %.2x.", data[3]);
ff945683 BV	185	break;
	186	case 0x01:
	187	if (is_diode) {
a84a26d9 UH	188	meaning.mq = SR_MQ_VOLTAGE;
	189	meaning.unit = SR_UNIT_VOLT;
	190	meaning.mqflags \|= SR_MQFLAG_DIODE;
ff945683 BV	191	if (ivalue < 0)
	192	fvalue = NAN;
	193	} else {
	194	if (ivalue < 0)
	195	break;
a84a26d9 UH	196	meaning.mq = SR_MQ_VOLTAGE;
a84a26d9 UH	197	meaning.unit = SR_UNIT_VOLT;
ff945683	198	if (is_ac)
a84a26d9	199	meaning.mqflags \|= SR_MQFLAG_AC;
ff945683	200	if (is_dc)
a84a26d9	201	meaning.mqflags \|= SR_MQFLAG_DC;
ff945683 BV	202	}
	203	break;
	204	case 0x02:
a84a26d9 UH	205	meaning.mq = SR_MQ_CURRENT;
a84a26d9 UH	206	meaning.unit = SR_UNIT_AMPERE;
ff945683	207	if (is_ac)
a84a26d9	208	meaning.mqflags \|= SR_MQFLAG_AC;
ff945683	209	if (is_dc)
a84a26d9	210	meaning.mqflags \|= SR_MQFLAG_DC;
ff945683 BV	211	break;
	212	case 0x04:
	213	if (is_continuity) {
a84a26d9 UH	214	meaning.mq = SR_MQ_CONTINUITY;
a84a26d9 UH	215	meaning.unit = SR_UNIT_BOOLEAN;
ff945683 BV	216	fvalue = ivalue < 0 ? 0.0 : 1.0;
ff945683 BV	217	} else {
a84a26d9 UH	218	meaning.mq = SR_MQ_RESISTANCE;
a84a26d9 UH	219	meaning.unit = SR_UNIT_OHM;
ff945683 BV	220	if (ivalue < 0)
	221	fvalue = INFINITY;
	222	}
	223	break;
	224	case 0x08:
	225	/* Never seen */
fa773062	226	sr_dbg("Unknown measurement mode: 0x%.2x.", data[3]);
ff945683 BV	227	break;
ff945683 BV	228	case 0x10:
a84a26d9 UH	229	meaning.mq = SR_MQ_FREQUENCY;
a84a26d9 UH	230	meaning.unit = SR_UNIT_HERTZ;
ff945683 BV	231	break;
ff945683 BV	232	case 0x20:
a84a26d9 UH	233	meaning.mq = SR_MQ_CAPACITANCE;
a84a26d9 UH	234	meaning.unit = SR_UNIT_FARAD;
ff945683 BV	235	break;
ff945683 BV	236	case 0x40:
a84a26d9 UH	237	meaning.mq = SR_MQ_TEMPERATURE;
a84a26d9 UH	238	meaning.unit = SR_UNIT_CELSIUS;
ff945683 BV	239	break;
ff945683 BV	240	case 0x80:
a84a26d9 UH	241	meaning.mq = SR_MQ_TEMPERATURE;
a84a26d9 UH	242	meaning.unit = SR_UNIT_FAHRENHEIT;
ff945683 BV	243	break;
ff945683 BV	244	default:
fa773062 UH	245	sr_dbg("Unknown/invalid measurement mode: 0x%.2x.", data[3]);
fa773062 UH	246	break;
ff945683	247	}
a84a26d9	248	if (meaning.mq == 0)
ff945683 BV	249	return;
	250
	251	if (is_auto)
a84a26d9	252	meaning.mqflags \|= SR_MQFLAG_AUTORANGE;
ff945683	253	if (is_hold)
a84a26d9	254	meaning.mqflags \|= SR_MQFLAG_HOLD;
ff945683	255	if (is_max)
a84a26d9	256	meaning.mqflags \|= SR_MQFLAG_MAX;
ff945683	257	if (is_min)
a84a26d9	258	meaning.mqflags \|= SR_MQFLAG_MIN;
ff945683	259	if (is_relative)
a84a26d9 UH	260	meaning.mqflags \|= SR_MQFLAG_RELATIVE;
	261
	262	encoding.unitsize = sizeof(float);
	263	encoding.is_float = TRUE;
	264	#ifdef WORDS_BIGENDIAN
	265	encoding.is_bigendian = TRUE;
	266	#else
	267	encoding.is_bigendian = FALSE;
	268	#endif
	269	encoding.digits = 4; /* Values are always 4-digit numbers. */
	270	encoding.is_digits_decimal = TRUE;
	271	encoding.scale.p = 1;
	272	encoding.scale.q = 1;
	273	encoding.offset.p = 0;
	274	encoding.offset.q = 1;
	275
	276	spec.spec_digits = encoding.digits;
ff945683	277
ff945683	278	analog.data = &fvalue;
a84a26d9 UH	279	analog.num_samples = 1;
	280	analog.encoding = &encoding;
	281	analog.meaning = &meaning;
	282	analog.spec = &spec;
	283
	284	packet.type = SR_DF_ANALOG2;
ff945683 BV	285	packet.payload = &analog;
	286	sr_session_send(devc->cb_data, &packet);
	287
	288	devc->num_samples++;
	289	}
	290
	291	SR_PRIV int victor_dmm_receive_data(struct sr_dev_inst sdi, unsigned char buf)
ac3898d2	292	{
ff945683 BV	293	GString *dbg;
	294	int i;
	295	unsigned char data[DMM_DATA_SIZE];
	296	unsigned char obfuscation[DMM_DATA_SIZE] = "jodenxunickxia";
	297	unsigned char shuffle[DMM_DATA_SIZE] = {
	298	6, 13, 5, 11, 2, 7, 9, 8, 3, 10, 12, 0, 4, 1
	299	};
ac3898d2	300
ff945683 BV	301	for (i = 0; i < DMM_DATA_SIZE && buf[i] == 0; i++);
	302	if (i == DMM_DATA_SIZE) {
	303	/* This DMM outputs all zeroes from time to time, just ignore it. */
	304	sr_dbg("Received all zeroes.");
	305	return SR_OK;
	306	}
ac3898d2	307
ff945683 BV	308	/* Deobfuscate and reorder data. */
	309	for (i = 0; i < DMM_DATA_SIZE; i++)
	310	data[shuffle[i]] = (buf[i] - obfuscation[i]) & 0xff;
	311
	312	if (sr_log_loglevel_get() >= SR_LOG_SPEW) {
	313	dbg = g_string_sized_new(128);
	314	g_string_printf(dbg, "Deobfuscated.");
	315	for (i = 0; i < DMM_DATA_SIZE; i++)
	316	g_string_append_printf(dbg, " %.2x", data[i]);
	317	sr_spew("%s", dbg->str);
	318	g_string_free(dbg, TRUE);
ac3898d2 BV	319	}
ac3898d2 BV	320
69e19dd7	321	decode_buf(sdi, data);
ff945683 BV	322
ff945683 BV	323	return SR_OK;
ac3898d2	324	}