git.ucc.asn.au
/
uccvend-snackrom.git
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
|
inline
| side by side (parent:
f32e21a
)
Finished mapping out all the single byte with word instructions
author
Nick Bannon
<
[email protected]
>
Tue, 1 Jan 2002 12:58:18 +0000
(12:58 +0000)
committer
Nick Bannon
<
[email protected]
>
Tue, 1 Jan 2002 12:58:18 +0000
(12:58 +0000)
ROM/makeasm.pl
patch
|
blob
|
history
diff --git
a/ROM/makeasm.pl
b/ROM/makeasm.pl
index
dde0d0d
..
7bf28d4
100755
(executable)
--- a/
ROM/makeasm.pl
+++ b/
ROM/makeasm.pl
@@
-77,7
+77,51
@@
my %onewitharg = ('63' => "COM\t\$%s,X",
'ED' => "STAD\t\$%s,X" );
'ED' => "STAD\t\$%s,X" );
-my %onewithword = ('FF' => "STX\t%s");
+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",
+ '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",
+ '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 (<>) {
LINE: while (<>) {
UCC
git Repository :: git.ucc.asn.au