+++ /dev/null
-#!/usr/local/bin/perl -w
-
-print "\tORG\t\$8000\n";
-
-my %transtable = ( '02' => 'IDIV' ,
- '03' => 'FDIV' ,
- '08' => 'INX' ,
- '09' => 'DEX',
- '0A' => 'CLV',
- '0D' => 'SEC',
- '0E' => 'CLI',
- '0F' => 'SEI',
- '19' => 'DAA',
- '1B' => 'ABA',
- '30' => 'TSX',
- '31' => 'INS',
- '32' => 'PULA',
- '33' => 'PULB',
- '34' => 'DES',
- '35' => 'TXS',
- '36' => 'PSHA',
- '37' => 'PSHB',
- '3C' => 'PSHX',
- '38' => 'PULX',
- '3A' => 'ABX',
- '3B' => 'RTI',
- '3E' => 'WAI',
- '43' => 'COMA',
- '46' => 'RORA',
- '49' => 'ROLA',
- '4A' => 'DECA',
- '4C' => 'INCA',
- '4F' => 'CLRA',
- '53' => 'COMB',
- '56' => 'RORB',
- '59' => 'ROLB',
- '5A' => 'DECB',
- '5F' => 'CLRB',
- '8F' => 'XGDX',
- '39' => 'RTS' );
-
- # '10' => 'SBA',
-
-
-my %twobytefirst = ( '18' => '1' );
-
-my %twobytesecond = ( '18 38' => 'PULY',
- '18 3A' => 'ABY',
- '18 3C' => 'PSHY');
-
-my %twobytesecondword = ( '18 FE' => 'LDY\t>%s',
- '18 FF' => 'STY\t>%s');
-
-my %onewitharg = ('60' => "NEG\t\$%s,X",
- '63' => "COM\t\$%s,X",
- '64' => "LSR\t\$%s,X",
- '67' => "ASR\t\$%s,X",
- '68' => "ASL\t\$%s,X",
- '6A' => "DEC\t\$%s,X",
- '6C' => "INC\t\$%s,X",
- '6D' => "TST\t\$%s,X",
- '6E' => "JMP\t\$%s,X",
- '6F' => "CLR\t\$%s,X",
- '80' => "SUBA\t#\$%s",
- '81' => "CMPA\t#\$%s",
- '82' => "SBCA\t#\$%s",
- '84' => "ANDA\t#\$%s",
- '85' => "BITA\t#\$%s",
- '86' => "LDAA\t#\$%s",
- '88' => "EORA\t#\$%s",
- '8A' => "ORA\t#\$%s",
- '8B' => "ADDA\t#\$%s",
- 'A0' => "SUBA\t\$%s,X",
- 'A1' => "CMPA\t\$%s,X",
- 'A2' => "SBCA\t\$%s,X",
- 'A3' => "SUBD\t\$%s,X",
- 'A4' => "ANDA\t\$%s,X",
- 'A6' => "LDAA\t\$%s,X",
- 'A7' => "STA\t\$%s,X",
- 'A8' => "EORA\t\$%s,X",
- 'A9' => "ADCA\t\$%s,X",
- 'AA' => "ORAA\t\$%s,X",
- 'AB' => "ADDA\t\$%s,X",
- 'AC' => "CPX\t\$%s,X",
- 'AD' => "JSR\t\$%s,X",
- 'AE' => "LDS\t\$%s,X",
- 'AF' => "STS\t\$%s,X",
- 'C0' => "SUBB\t#\$%s",
- 'C1' => "CMPB\t#\$%s",
- 'C2' => "SBCB\t#\$%s",
- 'C4' => "ANDB\t#\$%s",
- 'C5' => "BITB\t#\$%s",
- 'C6' => "LDAB\t#\$%s",
- 'C8' => "EORB\t#\$%s",
- 'C9' => "ADCB\t#\$%s",
- 'CA' => "ORB\t#\$%s",
- 'CB' => "ADDB\t#\$%s",
- 'E0' => "SUBB\t\$%s,X",
- 'E1' => "CMPB\t\$%s,X",
- 'E2' => "SBCB\t\$%s,X",
- 'E3' => "ADDD\t\$%s,X",
- 'E4' => "ANDB\t\$%s,X",
- 'E6' => "LDAB\t\$%s,X",
- 'E7' => "STAB\t\$%s,X",
- 'E8' => "EORB\t\$%s,X",
- 'E9' => "ADCB\t\$%s,X",
- 'EA' => "ORAB\t\$%s,X",
- 'EB' => "ADDB\t\$%s,X",
- 'EC' => "LDD\t\$%s,X",
- 'ED' => "STD\t\$%s,X",
- 'EE' => "LDX\t\$%s,X",
- 'EF' => "STX\t\$%s,X" );
-
-
-my %onewithword = (
- '70' => "NEG\t>%s",
- '73' => "COM\t>%s",
- '74' => "LSR\t>%s",
- '76' => "ROR\t>%s",
- '77' => "ASR\t>%s",
- '78' => "LSL\t>%s",
-# LSL == ASL
-# '78' => "ASL\t>%s",
- '79' => "ROL\t>%s",
- '7A' => "DEC\t>%s",
- '7C' => "INC\t>%s",
- '7D' => "TST\t>%s",
- '7F' => "CLR\t>%s",
-# '95' => "BITA\t<%s",
- 'B0' => "SUBA\t>%s",
- 'B1' => "CMPA\t>%s",
- 'B2' => "SBCA\t>%s",
- 'B3' => "SUBD\t>%s",
- 'B4' => "ANDA\t>%s",
- 'B5' => "BITA\t>%s",
- 'B6' => "LDAA\t>%s",
- 'B7' => "STAA\t>%s",
- 'B9' => "ADCA\t>%s",
- 'BA' => "ORAA\t>%s",
- 'BB' => "ADDA\t>%s",
- 'BC' => "CPX\t>%s",
- 'BD' => "JSR\t>%s",
- 'BE' => "LDS\t>%s",
- 'BF' => "STS\t>%s",
- 'D5' => "BITB\t>%s",
- 'F0' => "SUBB\t>%s",
- 'F1' => "CMPB\t>%s",
- 'F2' => "SBCB\t>%s",
- 'F3' => "ADDD\t>%s",
- 'F4' => "ANDB\t>%s",
- 'F5' => "BITB\t>%s",
- 'F6' => "LDAB\t>%s",
- 'F7' => "STAB\t>%s",
- 'FA' => "ORAB\t>%s",
- 'FB' => "ADDB\t>%s",
- 'F8' => "EORB\t>%s",
- 'F9' => "ADCB\t>%s",
- 'FC' => "LDD\t>%s",
- 'FD' => "STD\t>%s",
- 'FE' => "LDX\t>%s",
- 'FF' => "STX\t>%s" );
-
-LINE: while (<>) {
-
-# if blank line, print blank line
- if (/^\s*$/) { print "\n"; next LINE; }
-
-# if comment line, pass straight through
- if (/^\s*;/) { print; next LINE; }
-
-# if duplicate label - rename uniquely
- if (/^\s*((loop|jump82|goto91):)/) { print "${1}_$.\n"; next LINE; }
-
-# if it's a label, print label
- if (/^\s*(\w*:)/) { print "$1\n"; next LINE; }
-
-# if it's a vector table, print words
- if (/^\t\.word\t([a-f0-9]{4})$/) { print "\tFDB\t\$\U$1\n"; next LINE; }
-
-# otherwise, catch all, print bytes
- if (/^([A-F0-9]{4}) ((([A-F0-9]{2}) )*[A-F0-9]{2})/) {
- instruction($_);
- next LINE;
- }
-
-# if control Z, remove it
- if (/^\cZ$/) { next LINE; }
-
-# FINAL print commented out
- print ";$_";
-}
-
-# Process one instruction
-# Usage: instruction line
-sub instruction {
- my ($line) = @_;
-
- $instruction = substr($line,5,2);
-
- if (defined $transtable{$instruction}) {
- print ";$line";
- print "\t$transtable{$instruction}";
- $line =~ /$transtable{$instruction}(.*)$/i;
- print "$1\n";
- return;
- }
-
- if (defined $twobytefirst{$instruction}) {
- print ";$line";
- $thing = substr($line,5,5);
- if (defined $twobytesecond{$thing}) {
- print "\t" . $twobytesecond{$thing};
- $line =~ /$twobytesecond{$thing}(.*)$/i;
- print "$1\n";
- return;
- }
-
- if (defined $twobytesecondword{$thing}) {
- $athing = substr($line,11,2);
- $athing2 = substr($line,14,2);
- if (!($athing2 =~ /\s+/)) {
- $curraddr = substr($line,0,4);
- printf "FOO%s\tEQU\t\$%s%s\n", $curraddr,$athing,$athing2;
- printf "\t$twobytesecondword{$thing}", "FOO$curraddr";
- $line =~ /$twobytesecondword{$thing} [0-9A-F][0-9A-F][0-9A-F][0-9A-F](.*)$/i;
- print "\t;$1\n";
- return;
- }
- }
- }
-
- if (defined $onewitharg{$instruction}) {
- print ";$line";
- $thing = substr($line,8,2);
-
- printf "\t$onewitharg{$instruction}", $thing;
- $line =~ /$onewitharg{$instruction} [0-9A-F][0-9A-F](.*)$/i;
- print "\t;$1\n";
- return;
- }
-
- if (defined $onewithword{$instruction}) {
- print ";$line";
- $thing = substr($line,8,2);
- $thing2 = substr($line,11,2);
- if (!($thing2 =~ /\s+/)) {
- $curraddr = substr($line,0,4);
- printf "FOO%s\tEQU\t\$%s%s\n", $curraddr,$thing,$thing2;
- printf "\t$onewithword{$instruction}", "FOO$curraddr";
- $line =~ /$onewithword{$instruction} [0-9A-F][0-9A-F][0-9A-F][0-9A-F](.*)$/i;
- print "\t;$1\n";
- return;
- }
- }
-
- print ";$line";
- if ($line =~ /^([A-F0-9]{4}) ((([A-F0-9]{2}) )*[A-F0-9]{2})/) {
- @_=split(' ',$2);
- print "\tFCB\t\$".join(', $',@_)."\n";
- }
-}
git.ucc.asn.au / uccvend-snackrom.git / blobdiff
UCC git Repository :: git.ucc.asn.au