6502/6502-opcodes
1
0
Fork 0
mirror of https://github.com/mcanlas/6502-opcodes.git synced 2024-09-30 09:56:41 +00:00
Code Issues Projects Releases Wiki Activity

spell out logic

Browse Source
This commit is contained in:
Mark Canlas 2020-08-12 21:56:09 -04:00
parent 2b13e93d3d
commit ed46753f8e
2 changed files with 25 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
src/main/scala/com/htmlism/AddressingMode.scala
View File

@ -8,9 +8,10 @@ case object ZeroPageX extends AddressingMode
case object Absolute extends AddressingMode
case object AbsoluteX extends AddressingMode
case object AbsoluteY extends AddressingMode
case object Indirect extends AddressingMode // used by jump
case object IndirectX extends AddressingMode
case object IndirectY extends AddressingMode
case object Relative extends AddressingMode
case object Relative extends AddressingMode // used by branches
case object Accumulator extends AddressingMode
case object Implied extends AddressingMode
case object NoMode extends AddressingMode

25
src/main/scala/com/htmlism/MatchOpcodes.scala
View File

@ -18,6 +18,12 @@ object MatchOpcodes {
.toMap
// format: off
def injectedOpcodesJump: Map[Int, (Instruction, AddressingMode)] =
Map(
0x4C -> (JMP -> Absolute),
0x6C -> (JMP -> Indirect),
)
def injectedOpcodesRelative: Map[Int, (Instruction, AddressingMode)] =
Map(
0x10 -> BPL,
@ -68,7 +74,8 @@ object MatchOpcodes {
val lookup =
generatedOpcodes ++
injectedOpcodesImplied ++
injectedOpcodesRelative
injectedOpcodesRelative ++
injectedOpcodesJump
out.print("<table>")
@ -263,12 +270,24 @@ object MatchOpcodes {
def c00(aaa: Int, bbb: Int): Option[(Instruction, AddressingMode)] = {
val instruction =
Seq(NoInstruction, BIT, JMP, JMP, STY, LDY, CPY, CPX)(aaa)
Seq(NoInstruction, BIT, NoInstruction, NoInstruction, STY, LDY, CPY, CPX)(aaa)
val addressingMode =
instruction match {
case BIT =>
Seq(NoMode, ZeroPage, NoMode, Absolute, NoMode, NoMode, NoMode, NoMode)(bbb)
case STY =>
Seq(NoMode, ZeroPage, NoMode, Absolute, NoMode, ZeroPageX, NoMode, NoMode)(bbb)
case LDY =>
Seq(Immediate, ZeroPage, NoMode, Absolute, NoMode, ZeroPageX, NoMode, AbsoluteX)(bbb)
if (addressingMode == NoMode)
case _ =>
Seq(Immediate, ZeroPage, NoMode, Absolute, NoMode, NoMode, NoMode, NoMode)(bbb)
}
if (instruction == NoInstruction || addressingMode == NoMode)
None
else
(instruction -> addressingMode).some