deac/osd-contiki
1
0
Fork 0
Code Issues Pull requests Releases Wiki Activity

this version of mc1322x can flash code with flasher.

Browse source
This commit is contained in:
Mariano Alvira 2009-05-08 17:29:01 -04:00
parent 311b2f49c4
commit 6fbc97a798
1 changed files with 52 additions and 48 deletions
Download patch file Download diff file Expand all files Collapse all files

26
mc1322x-load.pl
View file

@ -45,20 +45,14 @@ $ob->read_const_time(1000); # 1 second per unfulfilled "read" call
my $s = 0; my $s = 0;
SEND: while(1) {
do {
my $c; my $c; my $count; my $ret = ''; my $test='';
my $count;
my $ret = '';
if($s == 1) { print "performing secondary send\n"; } if($s == 1) { print "performing secondary send\n"; }
$ob->write(pack('C','0')); $ob->write(pack('C','0'));
my $ret = '';
my $test;
if($s == 1) { if($s == 1) {
$test = 'ready'; $test = 'ready';
} else { } else {
@ -73,6 +67,7 @@ my $s = 0;
next; next;
} }
$ret .= $c; $ret .= $c;
print $ret . "\n";
} }
print $ret . "\n"; print $ret . "\n";
@ -88,16 +83,25 @@ my $s = 0;
my $i = 1; my $i = 1;
while(read(FILE, $c, 1)) { while(read(FILE, $c, 1)) {
print unpack('H',$c) . unpack('h',$c) if $verbose;
$i++; $i++;
usleep(50); # this is as fast is it can go... usleep(50); # this is as fast is it can go...
usleep(500) if ($s==1);
$ob->write($c); $ob->write($c);
# if($s==1) {
# ($count, $c) = $ob->read(1);
# print $c;
# }
} }
} }
if(-e $second) {$s=1; $filename = $second; next SEND; } last if ($s==1);
if((-e $second)) {
$s=1; $filename = $second;
} else {
last;
}
}; }
print "done.\n"; print "done.\n";