openpcd/openpcd/pll.pl @ master
| 1 |
#!/usr/bin/perl
|
|---|---|
| 2 |
|
| 3 |
|
| 4 |
# MCLK = (18.432 / DIV) * MUL = 48.000
|
| 5 |
|
| 6 |
my $MCLK = 18432; |
| 7 |
|
| 8 |
my $div; |
| 9 |
my $mul; |
| 10 |
|
| 11 |
for ($div = 1; $div < 256; $div++) { |
| 12 |
my $tmp = $MCLK / $div; |
| 13 |
for ($mul = 1; $mul < 2048; $mul++) { |
| 14 |
my $res = $tmp * $mul; |
| 15 |
if ($res == 96000) { |
| 16 |
printf("res=%u, div=%u, tmp=%u, mul=%u\n", |
| 17 |
$res, $div, $tmp, $mul); |
| 18 |
}
|
| 19 |
}
|
| 20 |
}
|
| 21 |
|
| 22 |
|
