6502/6502-opcodes
1
0
Fork 0
mirror of https://github.com/mcanlas/6502-opcodes.git synced 2024-06-12 13:29:32 +00:00
Code Issues Projects Releases Wiki Activity

add snake length; more documentation

Browse Source
This commit is contained in:
Mark Canlas 2020-08-26 01:28:36 -04:00
parent 8b9828c63e
commit 0902288b15
3 changed files with 13 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
src/main/scala/com/htmlism/mos6502/dsl/ReadWriteLocation.scala
View File

@ -3,9 +3,11 @@ package com.htmlism.mos6502.dsl
//import com.htmlism.mos6502.model._
/**
* @param name A name for this location, used to alias its address
*
* @tparam A The input type of the write and the output type of the read
*/
case class ReadWriteLocation[A](address: Address) {
case class ReadWriteLocation[A](name: String, address: Address) {
def read(implicit ctx: AssemblyContext): Unit = {
val _ = ctx
// ctx.push(LDA, ev, s"write ${ev.toShow(x)} to $name ($n)")

6
src/main/scala/com/htmlism/mos6502/dsl/VolatileDevice.scala
View File

@ -3,9 +3,13 @@ package com.htmlism.mos6502.dsl
//import com.htmlism.mos6502.model._
/**
* For a memory-mapped device that may return different values across multiple reads (e.g. a random number generator)
*
* @param name A name for this device, used to alias its address
*
* @tparam A The return type of the read
*/
case class VolatileDevice[A](address: Address) {
case class VolatileDevice[A](name: String, address: Address) {
def read(implicit ctx: AssemblyContext): Unit = {
val _ = ctx
// ctx.push(LDA, ev, s"write ${ev.toShow(x)} to $name ($n)")

9
src/test/scala/com/htmlism/mos6502/dsl/snake/Easy6502Spec.scala
View File

@ -68,10 +68,11 @@ class Easy6502Spec extends AnyFlatSpec with should.Matchers {
}
"snake" should "compile" in {
val sysRandom = VolatileDevice[Int](0xfe.z)
val sysLastKey = VolatileDevice[AsciiValue](0xff.z)
val snakeDirection = ReadWriteLocation[Direction](0x02.z)
val appleLocation = ReadWriteLocation[Int](0x00.z)
val sysRandom = VolatileDevice[Int]("sysRandom", 0xfe.z)
val sysLastKey = VolatileDevice[AsciiValue]("sysLastKey", 0xff.z)
val snakeDirection = ReadWriteLocation[Direction]("snakeDirection", 0x02.z)
val appleLocation = ReadWriteLocation[Int]("appleLocation", 0x00.z)
val snakeLength = ReadWriteLocation[Int]("snakeLength", 0x00.z)
val initSnake =
sub("initSnake") { implicit a =>