From 550acd4ef9387df87699b63e7d606b3b88e20254 Mon Sep 17 00:00:00 2001
From: Aleksey Veresov <aleksey@veresov.pro>
Date: Sat, 13 Feb 2021 19:24:35 +0300
Subject: Machine model created.

---
 src/Suem.hs | 61 ++++++++++++++++++++++++++++++++++++++++++++++---------------
 1 file changed, 46 insertions(+), 15 deletions(-)

(limited to 'src/Suem.hs')

diff --git a/src/Suem.hs b/src/Suem.hs
index a6df56f..39632c5 100644
--- a/src/Suem.hs
+++ b/src/Suem.hs
@@ -1,21 +1,52 @@
 module Suem (Config(..), ConfigSocket(..), suem) where
 
-data ConfigSocket = ConfigInet String | ConfigUnix String
+import qualified Data.ByteString as B
+import Data.Word
+
+
+data Registers = Registers {
+    pc  :: Word32,
+    sr  :: Word16,
+    drs :: [Word32], -- d0 to d7
+    ars :: [Word32], -- a0 to a6
+    usp :: Word32,   -- this is a7 in user mode
+    ssp :: Word32    -- this is a7 in supermode
+}
 
-data Config = Config {
-    freq :: Int,
-    ram  :: Int,
-    rom  :: String,
-    s0   :: Maybe ConfigSocket,
-    s1   :: Maybe ConfigSocket,
-    s2   :: Maybe ConfigSocket,
-    s3   :: Maybe ConfigSocket,
-    s4   :: Maybe ConfigSocket,
-    s5   :: Maybe ConfigSocket,
-    s6   :: Maybe ConfigSocket,
-    s7   :: Maybe ConfigSocket
+data Machine = Machine {
+    regs :: Registers,
+    ram  :: B.ByteString,
+    rom  :: B.ByteString
 }
 
+getbyte :: Machine -> Int -> Word8
+getbyte m a | a < 0x8 = B.index (rom m) a
+            | a < 0x7e0000 = if B.length (ram m) >= a then B.index (ram m) a else 0
+            | a < 0x800000 = B.index (rom m) (a - 0x7e0000)
+            | otherwise = 0
+
+
+
+data ConfigSocket = ConfigInet String | ConfigUnix String
+
+data Config = Config Int      -- frequence
+                     Int      -- size of RAM
+                     FilePath -- path to ROM
+                     (Maybe ConfigSocket)
+                     (Maybe ConfigSocket)
+                     (Maybe ConfigSocket)
+                     (Maybe ConfigSocket)
+                     (Maybe ConfigSocket)
+                     (Maybe ConfigSocket)
+                     (Maybe ConfigSocket)
+                     (Maybe ConfigSocket)
+
+printmachine :: Machine -> IO ()
+printmachine _ = putStrLn "Machine created."
+
 suem :: Config -> IO ()
-suem (Config _ _ r _ _ _ _ _ _ _ _) = putStrLn $ "Loaded " ++ r ++ " into ROM."
-suem _                              = return ()
+suem (Config _ ramsize rompath _ _ _ _ _ _ _ _) = do
+    romdata <- B.readFile rompath
+    printmachine (Machine regs ramdata romdata)
+    where ramdata = (B.replicate ramsize 0)
+          regs    = (Registers 0 0 (replicate 8 0) (replicate 7 0) 0 0)
-- 
cgit v1.2.3