Project : madwifi
Revision : 2976
Author : br1 (Bruno Randolf)
Date : 2007-11-26 09:44:01 +0100 (Mon, 26 Nov 2007)
Log Message :
add noise floor register to dBm conversion
Affected Files:
* madwifi/branches/madwifi-trace/scripts/trace/ath-reg-decode.pl updated
Modified: madwifi/branches/madwifi-trace/scripts/trace/ath-reg-decode.pl
===================================================================
--- madwifi/branches/madwifi-trace/scripts/trace/ath-reg-decode.pl
2007-11-26 08:32:20 UTC (rev 2975)
+++ madwifi/branches/madwifi-trace/scripts/trace/ath-reg-decode.pl
2007-11-26 08:44:01 UTC (rev 2976)
@@ -246,9 +246,25 @@
return $ret;
}
+sub noise_to_dbm($) {
+ my ($val) = @_;
+ my $noi = hex($val);
+
+ print "$val\n";
+
+ $noi = (($noi >> 19) & 0x1ff);
+ if ($noi & 0x100) {
+ $noi = - (($noi ^ 0x1ff) + 1);
+ return "$noi dBm"
+ } else {
+ return "";
+ }
+}
+
sub decode($$$$) {
my($mode, $reg, $val, $func) = @_;
my $dec, $bits;
+ my $nam, $extra = 0;
if (hex($reg) >= 0x6000 && hex($reg) <= 0x6010) {
print_eeprom_access($mode,hex($reg),hex($val));
@@ -265,7 +281,15 @@
}
else {
$bits = show_bits($val);
- printf "%s: 0x%s = 0x%s - %-30s %s (%s)\n", $mode,
$reg, $val, $dec->{'name'}, $bits, $func;
+
+ if (hex($reg) == 0x9864) {
+ $extra = noise_to_dbm($val);
+ }
+
+ $nam = $dec->{'name'};
+ $nam .= " (" . $extra . ")" if ($extra);
+
+ printf "%s: 0x%s = 0x%s - %-30s %s (%s)\n", $mode,
$reg, $val, $nam, $bits, $func;
}
}
}
-------------------------------------------------------------------------
This SF.net email is sponsored by: Microsoft
Defy all challenges. Microsoft(R) Visual Studio 2005.
http://clk.atdmt.com/MRT/go/vse0120000070mrt/direct/01/
|