From 6c7911db17388131973b8ca50691f0173b7e5f26 Mon Sep 17 00:00:00 2001 From: "B. Watson" Date: Tue, 6 Sep 2016 16:40:38 -0400 Subject: get rid of .inc file, convert to labels in main.info --- inc2info.pl | 19 ++++++++++++++++ jumpmanjr.dasm | 12 +++++------ jumpmanjr.inc | 68 ---------------------------------------------------------- jumpmanjr.info | 63 ++++++++++++++++++++++++++++++++++++++++++++++++++++- main.info | 62 +++++++++++++++++++++++++++++++++++++++++++++++++++- 5 files changed, 148 insertions(+), 76 deletions(-) create mode 100644 inc2info.pl delete mode 100644 jumpmanjr.inc diff --git a/inc2info.pl b/inc2info.pl new file mode 100644 index 0000000..e6d9153 --- /dev/null +++ b/inc2info.pl @@ -0,0 +1,19 @@ +#!/usr/bin/perl -w + +while(<>) { + chomp; + + s/;.*//; + next if /^\s*$/; + + ($label, $addr) = (/^(\S+)\s+=\s+\$(\S+)/); + $addr = eval "0x$addr"; + $got{$addr} = $label; +} + +for (sort { $a <=> $b } keys %got) { + $addr = sprintf("%04x", $_); + print <