6502/6502-opcodes
1
0
Fork 0
mirror of https://github.com/mcanlas/6502-opcodes.git synced 2025-04-06 04:40:45 +00:00
Code Issues Projects Releases Wiki Activity

and then

Browse Source
This commit is contained in:
Mark Canlas 2022-10-14 00:08:08 -04:00
parent 5f172f9843
commit 785df09efc
1 changed files with 6 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
scratchpad/src/main/scala/com/htmlism/scratchpad/Load.scala
View File

@ -27,8 +27,8 @@ trait Asm2[A, B]:
def xs: List[String]
case class Asm2Instructions[A, B](xs: List[String]) extends Asm2[A, B]:
def andThen(that: Asm2Instructions[A, B]): Asm2Instructions[2, B] =
Asm2Instructions(xs ++ that.xs)
def andThen(that: Asm2Instructions[A, B]): Asm2[A, B] =
AndThen2(this, that)
// TODO not tested
// B type needs to be a class type, with evidence, not a case class
@ -39,4 +39,8 @@ object Asm2Instructions:
def from[A, B](t2: (R[A], R[B]), xs: List[String]) =
Asm2Instructions[A, B](xs)
case class AndThen2[A, B](x: Asm2[A, B], y: Asm2[A, B]) extends Asm2[A, B]:
def xs: List[String] =
x.xs ++ y.xs
case class R[A]()