X-Git-Url: https://git.realraum.at/?p=svn42.git;a=blobdiff_plain;f=rf433rcv%2Fpc%2Fdecode.pl;fp=rf433rcv%2Fpc%2Fdecode.pl;h=685a283067c2810916764dea8c3ba9dd5d04c21d;hp=fc7f92e391b45faeb625a364f3bf196988184fed;hb=02293cb00639b97ca422619ee15f5981a5b3ffd0;hpb=894be2570b2c0198a4c7b87f385957c74b836bb3

diff --git a/rf433rcv/pc/decode.pl b/rf433rcv/pc/decode.pl
index fc7f92e..685a283 100755
--- a/rf433rcv/pc/decode.pl
+++ b/rf433rcv/pc/decode.pl
@@ -55,7 +55,7 @@ if (my $delemiter = $ARGV[0])
   # print "$seq\n";
   my $bitcount=0;
   my @binarydata;
-  for my $bits (split /,/,$seq)
+  for my $bits (reverse split /,/,$seq)
   {
     $binarydata[int($bitcount/8)]<<=1;
     $binarydata[int($bitcount/8)]|=$bits;
@@ -64,5 +64,9 @@ if (my $delemiter = $ARGV[0])
   $binarydata[int($bitcount/8)]<<= 7 - ($bitcount % 8);
   my @chars = map { chr($_) } @binarydata; 
   print STDERR join '',@chars;
+#  print STDERR "\ns\x04"; # send 4 times
+#  print STDERR chr(8-($bitcount % 8)) if $bitcount % 8;
+  print "$bitcount total, offset ".($bitcount % 8)." bits\n";
+  print ($bitcount/8 ," bytes (must be <= 63)\n");
 }