From: Dobrica Pavlinusic <dpavlin@rot13.org>
Date: Sun, 14 Dec 2014 12:24:19 +0000 (+0100)
Subject: decode temperatures and 16-bit numbers
X-Git-Url: http://git.rot13.org/?p=vrDialog;a=commitdiff_plain;h=8cbab76e96e4ea8b2805d2bccd38f7fa44e3f65b

decode temperatures and 16-bit numbers
---

diff --git a/dialog.pl b/dialog.pl
index d259990..006eded 100755
--- a/dialog.pl
+++ b/dialog.pl
@@ -73,6 +73,14 @@ retry:
 	crc($data);
 	warn "<< ",as_hex($data);
 
+	my $o = 2;
+	while ( $o < length($data) - 2 ) {
+		my $n = unpack('n', substr($data,$o,2));
+		$n = -( 0xffff - $n ) if $n & 0x8000;
+		warn "## $o = ",$n, "\t",$n / 16,"\n";
+		$o += 2;
+	}
+
 	return $data;
 }