diff --git a/desktop/ovl7.s b/desktop/ovl7.s
index 54fbd7d..2a03a30 100644
--- a/desktop/ovl7.s
+++ b/desktop/ovl7.s
@@ -161,7 +161,7 @@ L7207:  .byte   $29
         entry   0, $66D8
 
 L7232:  .byte   $29
-L7233:  entry   0, $72CD
+        entry   0, $72CD
         entry   0, $736C
         entry   0, $65F0
         entry   0, $6693
diff --git a/res/stats.pl b/res/stats.pl
index 006e871..64fa46e 100755
--- a/res/stats.pl
+++ b/res/stats.pl
@@ -1,31 +1,57 @@
 #!/usr/bin/env perl
 
+# stats.pl < source.s            -- dump stats
+# stats.pl unscoped < source.s   -- list Lxxxx symbols not within 2 scopes
+# stats.pl single < source.s     -- list Lxxxx symbols with no references
+
 use strict;
 use warnings;
 
-my %terms;
+my $command = shift(@ARGV) // "";
+
+my %defs;
+my %refs;
 my %unscoped;
 my $depth = 0;
 
 while (<STDIN>) {
     ++$depth if m/\.proc/ || m/\.scope/;
     --$depth if m/\.endproc/ || m/\.endscope/;
-    foreach my $term (split /\b/, $_) {
+
+    if (m/^(L[0-9A-F]{4}):(.*)/) {
+        my $def = $1;
+        $_ = $2;
+        $defs{$def} = ($defs{$def} // 0) + 1;
+        $unscoped{$def} = 1 if $depth < 2;
+    }
+
+    foreach my $term (split /(?<!::)\b/, $_) {
         if ($term =~ /^L[0-9A-F]{4}$/) {
-            $terms{$term} = 0 unless defined $terms{$term};
-            $terms{$term} += 1;
-            $unscoped{$term} = 1 if $depth < 2;
+            $refs{$term} = 0 unless defined $refs{$term};
+            $refs{$term} += 1;
         }
     }
 }
 
-my $single = 0;
-foreach my $key (keys %terms) {
-    ++$single if $terms{$key} == 1;
+my $unrefed = 0;
+foreach my $def (keys %defs) {
+    ++$unrefed unless defined $refs{$def};
 }
 
-my $terms = scalar(keys %terms);
+my $defs = scalar(keys %defs);
 my $unscoped = scalar(keys %unscoped);
-my $scoped = $terms - $unscoped;
+my $scoped = $defs - $unscoped;
 
-print "unscoped: $unscoped  scoped: $scoped  single: $single\n";
+if ($command eq "unscoped") {
+    foreach my $def (sort keys %unscoped) {
+        print "$def\n";
+    }
+} elsif ($command eq "unrefed") {
+    foreach my $def (sort keys %defs) {
+        print "$def\n" unless defined $refs{$def};
+    }
+} elsif ($command eq "") {
+    print "unscoped: $unscoped  scoped: $scoped  unrefed: $unrefed\n";
+} else {
+    die "Unknown command: $command\n";
+}
diff --git a/res/unscoped.pl b/res/unscoped.pl
deleted file mode 100755
index 150773a..0000000
--- a/res/unscoped.pl
+++ /dev/null
@@ -1,24 +0,0 @@
-#!/usr/bin/env perl
-
-use strict;
-use warnings;
-
-my %terms;
-my %unscoped;
-my $depth = 0;
-
-while (<STDIN>) {
-    ++$depth if m/\.proc/ || m/\.scope/;
-    --$depth if m/\.endproc/ || m/\.endscope/;
-    foreach my $term (split /\b/, $_) {
-        if ($term =~ /^L[0-9A-F]{4}$/) {
-            $terms{$term} = 0 unless defined $terms{$term};
-            $terms{$term} += 1;
-            $unscoped{$term} = 1 if $depth < 2;
-        }
-    }
-}
-
-foreach my $term (sort keys %unscoped) {
-    print "$term\n";
-}