changed time base to 8kHz
authorrealraum <realraum@realraum.at>
Tue, 13 Dec 2011 00:16:55 +0000 (00:16 +0000)
committerrealraum <realraum@realraum.at>
Tue, 13 Dec 2011 00:16:55 +0000 (00:16 +0000)
added binary output to decoder

rf433rcv/pc/decode.pl
rf433rcv/teensy/example.c

index c5822e5..fc7f92e 100755 (executable)
@@ -52,5 +52,17 @@ if (my $delemiter = $ARGV[0])
     }
   }
   chop $seq;
-  print STDERR "$seq\n";
+  # print "$seq\n";
+  my $bitcount=0;
+  my @binarydata;
+  for my $bits (split /,/,$seq)
+  {
+    $binarydata[int($bitcount/8)]<<=1;
+    $binarydata[int($bitcount/8)]|=$bits;
+    $bitcount++;
+  }
+  $binarydata[int($bitcount/8)]<<= 7 - ($bitcount % 8);
+  my @chars = map { chr($_) } @binarydata; 
+  print STDERR join '',@chars;
 }
+
index ab7026c..ad07cda 100644 (file)
@@ -45,7 +45,7 @@ int main(void)
   // 200*8 clock cycles, 100us
   TCCR0A = 1<<WGM01;
   TCCR0B = 1<<CS01;
-  OCR0A = 199;
+  OCR0A = 249;
   TCNT0 = 0;
   TIMSK0 = (1<<OCIE0A);