summaryrefslogtreecommitdiff
path: root/development/dis/20150816.25e17c0f.diff
diff options
context:
space:
mode:
Diffstat (limited to 'development/dis/20150816.25e17c0f.diff')
-rw-r--r--development/dis/20150816.25e17c0f.diff177
1 files changed, 177 insertions, 0 deletions
diff --git a/development/dis/20150816.25e17c0f.diff b/development/dis/20150816.25e17c0f.diff
new file mode 100644
index 0000000000..2b64eb40e9
--- /dev/null
+++ b/development/dis/20150816.25e17c0f.diff
@@ -0,0 +1,177 @@
+diff --git a/README.md b/README.md
+index b9e708c..01aa299 100644
+--- a/README.md
++++ b/README.md
+@@ -29,10 +29,13 @@ Usage
+ -comment Emit comments
+ -call Emit callers
+ -access Emit accessors
++ -extern Emit labels for out-of-range addresses
++ -rangelabels Emit labels for ranges instead of base+offset
+ -verbose Print info to STDERR
+ -dump Print options in format for -a
+ -a FILE Read options from FILE. Lines are: OPTION VALUE
+
++ Addresses may include a range, e.g. table=$300+F
+ Addresses may include xex segment number, e.g. 3:1FAE
+
+ Examples
+diff --git a/dis b/dis
+index 13090f4..83a3be2 100755
+--- a/dis
++++ b/dis
+@@ -41,7 +41,7 @@ use constant {
+
+ sub state {
+ return {
+- #mem => [map [0], 0 .. 0x10000],
++ mem => [map [0], 0 .. 0x10000],
+ segnum => 0,
+ };
+ }
+@@ -79,10 +79,10 @@ sub labels {
+ (?:\+([0-9a-fA-F]+))? # optional range in hex
+ /x;
+ $match or die "ERROR: Unrecognized $opt address: $value\n";
+- my $label = $1;
+ my $segnum = $2 || 0;
+ my $base = hex($3);
+ my $range = hex($4||0);
++ my $label = $1 || sprintf "u%2X", $base;
+ for my $off (0 .. $range) {
+ my $addr = $base + $off;
+ if (($addr & 0xFFFF) != $addr) {
+@@ -92,6 +92,7 @@ sub labels {
+ if (defined $state->{$opt}{$segnum}{$addr}) {
+ warn sprintf "WARNING: Duplicate $opt: $value: %X\n",
+ $addr;
++ next;
+ }
+ $state->{$opt}{$segnum}{$addr} =
+ $off ? $rangelabels ? sprintf "${label}_%X", $off :
+@@ -194,14 +195,18 @@ sub trace {
+ my $targ = rel($i, $i1);
+ trace($state, $targ, $byte->[LABEL], $i);
+ } elsif ($mode =~ /Ind|Z-Page/) {
+- my $tlabel = $mem->[$i1][LABEL];
++ my $data = $mem->[$i1];
++ my $pre = $data->[SEGNUM] ? sprintf "s$data->[SEGNUM]" : "";
++ my $tlabel = $data->[LABEL] ||= $pre . sprintf "l%02X", $i1;
+ push @{$byte->[TARGETS]}, $tlabel if $tlabel;
+- push @{$mem->[$i1][ACCESSORS]}, seglabel($state, $i);
++ push @{$data->[ACCESSORS]}, seglabel($state, $i);
+ } elsif ($mode =~ /Absolute/) {
+ my $addr = addr($i1, $i2);
+- my $tlabel = $mem->[$addr][LABEL];
++ my $data = $mem->[$addr];
++ my $pre = $data->[SEGNUM] ? sprintf "s$data->[SEGNUM]" : "";
++ my $tlabel = $data->[LABEL] ||= $pre . sprintf "l%04X", $addr;
+ push @{$byte->[TARGETS]}, $tlabel if $tlabel;
+- push @{$mem->[$addr][ACCESSORS]}, seglabel($state, $i);
++ push @{$data->[ACCESSORS]}, seglabel($state, $i);
+ }
+ $i += $len[$code];
+ }
+@@ -214,23 +219,24 @@ sub extern {
+ return if not $opts->{extern};
+ return if not $opts->{labels};
+ my @labels;
+- for my $opt (qw(code data vector)) {
+- for my $labels (values %{$state->{$opt}||{}}) {
+- for my $addr (sort {$a <=> $b} keys %$labels) {
+- my $label = $labels->{$addr} or next;
+- next if $opts->{labelled}{$label};
+- next if not $opts->{referenced}{$label};
+- next if $label =~ /\+/;
+- my $accessors = $state->{mem}[$addr][ACCESSORS];
+- my $access = "";
+- if ($accessors and $opts->{access}) {
+- $access = "\t\t; " . join " ", "Access:", uniq @$accessors;
+- }
+- push @labels, [$addr,
+- sprintf "$labels->{$addr} equ \$%X$access\n", $addr];
+- }
++ for (my $addr = 0; $addr < 0x10000; ++$addr) {
++ my $label = $state->{mem}[$addr][LABEL] or next;
++ next if $opts->{labelled}{$label};
++ next if not $opts->{referenced}{$label};
++ next if $label =~ /\+/;
++ my $comment = "";
++ my $accessors = $state->{mem}[$addr][ACCESSORS];
++ if ($accessors and $opts->{access}) {
++ $comment .= "\t\t; " . join " ", "Access:", uniq @$accessors;
+ }
++ my $callers = $state->{mem}[$addr][CALLERS];
++ if ($callers and $opts->{call}) {
++ $comment .= "\t\t; " . join " ", "Callers:", uniq @$callers;
++ }
++ push @labels, [$addr,
++ sprintf "$label equ \$%X$comment\n", $addr];
+ }
++ print "##EXTERN##\n";
+ print map $_->[1], sort { $a->[0] <=> $b->[0] } @labels;
+ }
+
+@@ -286,8 +292,6 @@ sub dis {
+ my $targ = $imm8 = $imm16 = $rel = $targets->[-1];
+ $targ =~ s/\+.*//;
+ $opts->{referenced}{$targ}++;
+- # Use z: if label is not predeclared in zero-page
+- $imm8 = "z:$imm8" if not defined $mem->[$i1][VALUE];
+ } elsif ($mode eq "Immediate" and $state->{constant}{$segnum}{$i1}) {
+ $imm8 = $state->{constant}{$segnum}{$i1};
+ $opts->{referenced}{$imm8}++;
+@@ -522,7 +526,7 @@ sub raw {
+ my ($stream, $opts) = @_;
+ my $start = hex($opts->{org}||0);
+ my $end = $start + (length $stream) - 1;
+- printf " opt h-\n";
++ printf " opt h-\n" unless $opts->{headers};
+ printf " org \$%04X\n", $start;
+ my $state = state();
+ layer($state, $start, $end, $stream);
+@@ -616,6 +620,7 @@ sub main {
+ call!
+ access!
+ extern!
++ headers!
+ verbose!
+ dump!
+ arg|a=s@
+@@ -650,6 +655,13 @@ sub main {
+ warn "WARNING: Truncating file at 1M\n";
+ }
+
++ if ($opts{extern} and open my $pipe, "-|") {
++ $_ = do { local $/; <$pipe> };
++ s/(.*)##EXTERN##\n(.*)/$2$1/s;
++ print;
++ exit 0;
++ }
++
+ if ($opts{type} eq "xex") {
+ xex($stream, \%opts);
+ } elsif ($opts{type} eq "prg") {
+diff --git a/sid.dop b/sid.dop
+index 0a85ddf..ea19fab 100644
+--- a/sid.dop
++++ b/sid.dop
+@@ -28,4 +28,4 @@ data SIDPADX=$D419
+ data SIDPADY=$D41A
+ data SIDOSCIL=$D41B
+ data SIDENVEL=$D41C
+-data SID=$D41D+D2
++data SID=$D41D+E2
+diff --git a/sys.dop b/sys.dop
+index 96c7266..a875e15 100644
+--- a/sys.dop
++++ b/sys.dop
+@@ -339,7 +339,7 @@ data COLOR2=$2C6
+ data COLOR3=$2C7
+ data COLOR4=$2C8 ;BACKGROUND
+ ;($2C9 - $2DF SPARE)
+-data GLBABS=$2E0 ;GLOBAL VARIABLES
++data GLBABS=$2E0+2 ;GLOBAL VARIABLES
+ ;($2E0 - $2E3 SPARE)
+ data RAMSIZ=$2E4 ;RAM SIZE (HI BYTE ONLY)
+ data MEMTOP=$2E5+1 ;TOP OF AVAILABLE MEMORY