(Dieser Beitrag wurde geloescht)

[(geloescht) (Gast)]

(Dieser Beitrag wurde geloescht)

[Ale (Gast)]

Ich könne es nicht, aber wenn ein Intel Hex ist, ganz einfach :-)

[Andreas Haimberger (Gast)]

Schau mal hier rein:

http://www.betarun.com/Pages/HexEditor/
http://www.avrfreaks.net/index.php?name=PNphpBB2&file=viewtopic&p=296140

Den Editor aus dem ersten Link habe ich selber noch nie verwendet, keine 
Ahnung, ob der für dich hilfreich ist. Möglicherweise sind die Hinweise 
aus dem Avrfreaks-Forum im zweiten Link sinnvoller.

Ich verwende normalerweise CodevisionAVR, da ist es nicht notwendig, das 
EEPROM "zu Fuß" mit Daten zu füllen, man schreibt und liest einfach als 
"eeprom" deklarierte Variablen. Wo die Daten dann genau im EEPROM 
stehen, brauche ich dazu nicht zu wissen, das macht alles der Compiler.

MfG, Andy

[Lupin (Gast)]

ist das dann nicht von kompilierung zu kompilierung unterschiedlich wo 
er seine daten hinschreibt?

[Bjoern M. (salival)]

---

recalc_ihex_checksum_pipe.pl

#!/usr/bin/perl
while (<>)
{
    s/[\r\n]//g;
    my $data = substr($_, 1, -2);
    my $checksum;
    $checksum += hex($_) for split /(..)/, $data;
    printf ":%s%02X\r\n", $data, (0x100-$checksum) & 0xff;
}

cat foo.eep | ./recalc_ihex_checksum_pipe.pl > bar.eep

---

recalc_ihex_checksum.pl

#!/usr/bin/perl

sub usage
{
    print "usage: $0 <infile> <outfile>\n";
    exit 1;
}

open IN, shift or &usage;
open OUT, ">" . shift or &usage;
    
while (<IN>)
{       
    s/[\r\n]//g;
    my $data = substr($_, 1, -2);
    my $checksum;
    $checksum += hex($_) for split /(..)/, $data;
    printf OUT ":%s%02X\r\n", $data, (0x100-$checksum) & 0xff;
}

./recalc_ihex_checksum.pl foo.eep bar.eep

---

gruss, bjoern.

[(geloescht) (Gast)]

(Dieser Beitrag wurde geloescht)

[Bjoern M. (salival)]

>ich bin zu lang raus aus Perl aber nach längerem Hinsehen hab ich die
>Berechnung gefunden.
Ich fass das mal als Kompliment auf :)

Hier noch eine elegantere Variante...

#!/usr/bin/perl
while (<>)
{
    my $checksum;
    s/^:(.+?)..[\r\n]+$/$1/;
    $checksum -= hex($_) for split /(..)/;
    printf ":%s%02X\r\n", $_, $checksum & 0xff;
}

...und ein Oneliner:

cat foo.eep | perl -ne '$x=0;s/^:(.+?)..[\r\n]+$/$1/;$x-=hex($_)for split/(..)/;printf":%s%02X\r\n",$_,$x&0xff' > bar.eep

gruss, bjoern.

[(geloescht) (Gast)]

(Dieser Beitrag wurde geloescht)