#!/usr/bin/perl -w

use strict;

my (%regs);

# MAC DMA registers - 0x0000 - 0x07FC 
# MAC DMA QCU registers - 0x0800 - 0x0FFC
# PCU registers - 0x8000 - 0x98FC

# (AR9280+) RF registers - 0x7000 - 0x7FFC

# DCU registers - 0x1000 - 0x1FFC
my ($i);
for ($i = 0x1000; $i < 0x12FF; $i += 4) {
	my (@r) = split(/=/, `athpeek -i ath0 $i`);
	chomp $r[1];
	$r[1] =~ s/ +//;
	$regs{$i} = hex("0x" . $r[1]);
	printf "%x = %s\n", $i, $r[1];
}