#!/usr/local/bin/perl
#
#                0x00000152                _end=.
while(<>){
	if (/\s+(\S+)\s+_end=\.\s*$/) {
		$sram = hex($1) - 0x60;
		$free = 512 - $sram;
		##print "$1 $sram $free\n";
		print "$free bytes SRAM for stack\n";
	}
}
