From 8cbab76e96e4ea8b2805d2bccd38f7fa44e3f65b Mon Sep 17 00:00:00 2001
From: Dobrica Pavlinusic <dpavlin@rot13.org>
Date: Sun, 14 Dec 2014 13:24:19 +0100
Subject: [PATCH] decode temperatures and 16-bit numbers

---
 dialog.pl | 8 ++++++++
 1 file changed, 8 insertions(+)

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;
 }
 
-- 
2.20.1