[Madwifi-cvs] revision 2976 committed

[Bruno R. <svn...@ma...>]

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;
 		}
 	}
 }