diff options
| author | Christian Pointner <equinox@mur.at> | 2011-07-27 11:35:52 +0000 |
|---|---|---|
| committer | Christian Pointner <equinox@mur.at> | 2011-07-27 11:35:52 +0000 |
| commit | 25a6dc931b713361300a5fabaf908f5346aad26c (patch) | |
| tree | e4a93358d765219c186ce59612709c4e1c14cadc | |
| parent | ttx <-> ihu communication include checksum/ack works now (diff) | |
checksum fix
git-svn-id: https://svn.spreadspace.org/mur.sat@65 7de4ea59-55d0-425e-a1af-a3118ea81d4c
| -rwxr-xr-x | software/tests/beacon/decode.pl | 2 | ||||
| -rw-r--r-- | software/ttx/ttx.asm | 1 |
2 files changed, 2 insertions, 1 deletions
diff --git a/software/tests/beacon/decode.pl b/software/tests/beacon/decode.pl index b2b1446..28bf82b 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 = ord('A') - ord(' '); + my $csval_calc = ord('N') - ord(' '); my @values = unpack("C*", $preamble); @values = (@values, unpack("C*", $cnt)); foreach(@values) { $csval_calc ^= $_ - ord(' '); } diff --git a/software/ttx/ttx.asm b/software/ttx/ttx.asm index 260314d..9fd38e8 100644 --- a/software/ttx/ttx.asm +++ b/software/ttx/ttx.asm @@ -500,6 +500,7 @@ send_char movf ELECNT,f btfsc STATUS,Z return + movf CHAR,w xorwf PARITY,f char_next_element |