diff options
Diffstat (limited to 'mkmusiclabels.pl')
| -rw-r--r-- | mkmusiclabels.pl | 15 |
1 files changed, 15 insertions, 0 deletions
diff --git a/mkmusiclabels.pl b/mkmusiclabels.pl new file mode 100644 index 0000000..f47cbfe --- /dev/null +++ b/mkmusiclabels.pl @@ -0,0 +1,15 @@ +#!/usr/bin/perl -w + +$startaddr = 0; +$entry = 0; +do { + $startaddr = 0x8FC3 + $entry * 5; + printf 'range { name "mus%02d_addr1"; start $%04x; end $%04x; type addrtable; };%s', + $entry, $startaddr, $startaddr+1, "\n"; + printf 'range { name "mus%02d_addr2"; start $%04x; end $%04x; type addrtable; };%s', + $entry, $startaddr+2, $startaddr+3, "\n"; + printf 'range { name "mus%02d_len_or_tempo"; start $%04x; end $%04x; type bytetable; };%s', + $entry, $startaddr+4, $startaddr+4, "\n"; + print "\n"; + $entry++; +} while($startaddr < 0x8fff); |