#!/usr/bin/perl

my $a = " {0x10,  0x20, 0x41, 0x83, 0x9B, 0xC4, 0x08, 0x0C, 0x10, 0x18, 0x20, 0x31, 0x40},";
my $b = "   {0x62,  0xC5, 0x89, 0x12, 0xA6, 0x9C, 0x31, 0x4A, 0x62, 0x93, 0xC5, 0x27, 0x00}, ";

while ($a =~ s/0x(..)//)
{
	my $d1 = $1;
	$b =~ s/0x(..)//;
	my $d2 = $1;

	my $dr = unpack("S", pack("H4", $d2 . $d1));
	my $drtx = int( ($dr*1_000_000) / (2 ** (16+5)) );
	print "0x$d1$d2 = $dr = $drtx\n";
	}