6502/6502-opcodes
1
0
Fork 0
mirror of https://github.com/mcanlas/6502-opcodes.git synced 2025-01-18 12:30:22 +00:00
Code Issues Projects Releases Wiki Activity

pattern matching

Browse Source
This commit is contained in:
Mark Canlas 2020-08-12 22:16:53 -04:00
parent 22e8d615ab
commit 1470f01a90
1 changed files with 26 additions and 8 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -266,12 +266,27 @@ object MatchOpcodes {
Seq(ASL, ROL, LSR, ROR, STX, LDX, DEC, INC)(aaa)
val addressingMode =
Seq(Immediate, ZeroPage, Accumulator, Absolute, NoMode, ZeroPageX, NoMode, AbsoluteX)(bbb)
Seq(Immediate, ZeroPage, Accumulator, Absolute, NoMode, ZeroPageX, Implied, AbsoluteX)(bbb)
if (addressingMode == NoMode)
None
else
val useLookup =
(instruction -> addressingMode).some
(instruction, addressingMode) match {
case (ASL | ROL | LSR | ROR, ZeroPage | Accumulator | Absolute | ZeroPageX | AbsoluteX) =>
useLookup
case (STX, ZeroPage | Absolute) =>
useLookup
case (DEC | INC, ZeroPage | Absolute | AbsoluteX | ZeroPageX) =>
useLookup
case (LDX, Immediate | ZeroPage | Absolute) =>
useLookup
case _ =>
None
}
}
def c00(aaa: Int, bbb: Int): Option[(Instruction, AddressingMode)] = {
@ -281,18 +296,21 @@ object MatchOpcodes {
val addressingMode =
Seq(Immediate, ZeroPage, NoMode, Absolute, NoMode, ZeroPageX, NoMode, AbsoluteX)(bbb)
val useLookup =
(instruction -> addressingMode).some
(instruction, addressingMode) match {
case (BIT, ZeroPage | Absolute) =>
(instruction -> addressingMode).some
useLookup
case (STY, ZeroPage | Absolute | ZeroPageX) =>
(instruction -> addressingMode).some
useLookup
case (LDY, Immediate | ZeroPage | Absolute | ZeroPageX | AbsoluteX) =>
(instruction -> addressingMode).some
useLookup
case (CPY | CPX, Immediate | ZeroPage | Absolute) =>
(instruction -> addressingMode).some
useLookup
case _ =>
None