+sub bedump {
+ my ($ofst, $len) = @_;
+ my ($i);
+ my ($value);
+
+ seek(INFILE, $ofst, 0);
+
+ printf("%2dbit-BE : ", $len * 8 );
+
+ $value = 0;
+ for ( $i=0 ; $i < $len ; $i++ ) {
+ $rc = read(INFILE,$buf,1);
+ $bytedata[$i] = unpack("C", $buf );
+ $value += $bytedata[$i] << (($len - $i -1) * 8) ;
+ }
+
+ for ( $i=0 ; $i < $len ; $i++ ) {
+ printf("%02X", $bytedata[$i]);
+ }
+
+ printf(" : %s", $value);
+ print "\n";
+
+}
+
+sub ledump {
+ my ($ofst, $len) = @_;
+ my ($i);
+ my ($value);
+
+ seek(INFILE, $ofst, 0);
+
+ printf("%2dbit-LE : ", $len * 8 );
+
+ $value = 0;
+ for ( $i=0 ; $i < $len ; $i++ ) {
+ $rc = read(INFILE,$buf,1);
+ $bytedata[$len - $i - 1] = unpack("C", $buf );
+ $value += $bytedata[$len - $i -1] << ($i * 8) ;
+ }
+
+ for ( $i=0 ; $i < $len ; $i++ ) {
+ printf("%02X", $bytedata[$i]);
+ }
+
+ printf(" : %s", $value);
+ print "\n";
+
+}
+