diff options
| author | Christian Pointner <equinox@mur.at> | 2011-07-23 18:33:56 +0000 |
|---|---|---|
| committer | Christian Pointner <equinox@mur.at> | 2011-07-23 18:33:56 +0000 |
| commit | 27eb7cc28f6762ecaf35181aeb6922adb7fcdeaa (patch) | |
| tree | 5f236bc997c3b733abeae2af64dfb076177c8725 /software/tests/beacon | |
| parent | ihu: ledblink as a start (diff) | |
added 'E' as as a start for the beacon
git-svn-id: https://svn.spreadspace.org/mur.sat@47 7de4ea59-55d0-425e-a1af-a3118ea81d4c
Diffstat (limited to 'software/tests/beacon')
| -rwxr-xr-x | software/tests/beacon/decode.pl | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/software/tests/beacon/decode.pl b/software/tests/beacon/decode.pl index 2d570c0..85739b3 100755 --- a/software/tests/beacon/decode.pl +++ b/software/tests/beacon/decode.pl @@ -25,7 +25,7 @@ foreach(@beacons) { my $cntval = unpack("n", MIME::Base32::decode($cnt . "=")) >> 1; my $csval_recv = unpack("C", MIME::Base32::decode($checksum . "=")) >> 3; - my $csval_calc = 0; + my $csval_calc = ord('E') - ord(' '); my @values = unpack("C*", $preamble); @values = (@values, unpack("C*", $cnt)); foreach(@values) { $csval_calc ^= $_ - ord(' '); } |