From 8889d0f1bb00b3bb52afb92a1069112817ddbb81 Mon Sep 17 00:00:00 2001
From: "B. Watson" <yalhcru@gmail.com>
Date: Sun, 28 Feb 2016 02:56:41 -0500
Subject: add procsizes target, rewrite get_item in asm, combine some
 functions, 7808 bytes free

---
 procsizes.pl | 24 ++++++++++++++++++++++++
 1 file changed, 24 insertions(+)
 create mode 100644 procsizes.pl

(limited to 'procsizes.pl')

diff --git a/procsizes.pl b/procsizes.pl
new file mode 100644
index 0000000..287cf46
--- /dev/null
+++ b/procsizes.pl
@@ -0,0 +1,24 @@
+#!/usr/bin/perl -w
+
+open IN, "<taipan.lst" or die $!;
+
+while(<IN>) {
+	(/^([0-9A-F]{6})/) && (eval "\$addr = 0x$1");
+	if(/\.proc\s+_(\w+)/) {
+		$proc = $1;
+		$start{$proc} = $addr;
+	} elsif(/\.endproc/) {
+		$end{$proc} = $addr - 1;
+		$proc = "";
+	}
+}
+
+for(sort keys %start) {
+	$len{$_} = $end{$_} - $start{$_} + 1;
+}
+
+for(sort { $len{$a} <=> $len{$b} } keys %len) {
+	printf "% 32s % d\n", $_, $len{$_};
+	$total += $len{$_};
+}
+printf "% 32s % d\n", "Total:", $total;
-- 
cgit v1.2.3