#!/usr/bin/perl -w

open FH,"DECT5154S-Hds4.bin";

sysseek FH, 0xa2a,0;
for($i=0;$i<0x149;$i++)
{
sysread FH, $l, 1;
sysread FH, $h, 1;
$adr[$i] = "0x". ( unpack "H2", $h ) . unpack ("H2", $l);
}
for($i=1;$i<0x149;$i++)
{
sysread FH, $str, eval($adr[$i]) - eval($adr[$i-1]);
print "$str\n";
}
