From: Lucian Mogosanu <lucian.mogosanu@gmail.com>
Date: Sat, 13 Dec 2014 16:56:32 +0000 (+0200)
Subject: ZXS: RAM: Add examples
X-Git-Url: https://git.mogosanu.ro/?a=commitdiff_plain;h=7fc45484f499d1371cca9a582460e29e405353f8;p=z80.git

ZXS: RAM: Add examples
---

diff --git a/src/ZXS/RAM.hs b/src/ZXS/RAM.hs
index 9a755d5..aaf994c 100644
--- a/src/ZXS/RAM.hs
+++ b/src/ZXS/RAM.hs
@@ -37,5 +37,11 @@ ramModifyWord ram addr f = do
   w <- ramGetWord ram addr
   ramSetWord ram addr $ f w
 
+-- defining this as "RAM" memory, although we're not writing to it
+-- while the CPU is running; most probably we'll need to redefine this
+-- into its own module
 romMem :: IO RAM
 romMem = newListArray (0x0000, 0x3fff) $ repeat 0
+
+mainMem :: IO RAM
+mainMem = newListArray (0x5ccb, 0xff57) $ repeat 0