dseg_check

一款MP3 Player Firmware 的原代码,非常有参考价值

#! /usr/bin/perl

open(MAP, 'main.map') || die "Unable to read main.map\n";

while (<MAP>) {
	($da, $ds) = ($1, $2) if /^DSEG[ \t]+([0-9A-F]+)[ \t]+([0-9A-F]+)/;
	($oa, $os) = ($1, $2) if /^OSEG[ \t]+([0-9A-F]+)[ \t]+([0-9A-F]+)/;
}
$da && $ds || die "DSEG definition not found in main.map\n";
$oa && $os || die "OSEG definition not found in main.map\n";

$de = hex($da) + hex($ds);
$oe = hex($oa) + hex($os);

$de <= 128 || die "DSEG Overflow, compiled code is unusable\n";
$oe <= 128 || die "OSEG Overflow, compiled code is unusable\n";

$e = $de;
$e = $oe if $oe > $d;
$e--;
print "dseg usage ends at $e (ok)\n";