beginning simulator definition

package.yaml

@@ -53,6 +53,7 @@ default-extensions:
 dependencies:
 - name: base
 - string-interpolate
+- vector
 
 # The library contains all of our application code.
 # The executable defined below is just a thin wrapper.

src/TIS100/CPU/Base.hs → src/TIS100/Nodes/Base.hs

@@ -1,4 +1,4 @@
-module TIS100.CPU.Base where
+module TIS100.Nodes.Base where
 
 newtype Value = Value Int
   deriving (Eq)

src/TIS100/Nodes/ConnectedNode.hs

@@ -0,0 +1 @@
+module TIS100.Nodes.ConnectedNode where

src/TIS100/CPU/T21.hs → src/TIS100/Nodes/T21.hs

@@ -1,6 +1,6 @@
-module TIS100.CPU.T21 where
+module TIS100.Nodes.T21 where
 
-import TIS100.CPU.Base (Value (..))
+import TIS100.Nodes.Base (Value (..))
 import Prelude hiding (last)
 
 data Register' = ACC | NIL
@@ -35,7 +35,7 @@ data Instruction
   deriving (Eq, Show)
 
 data RunState
-  = Running
+  = Ready
   | WaitingOnRead Port'
   | WaitingOnWrite Port'
   deriving (Eq, Show)
@@ -48,23 +48,31 @@ data TileState = TileState
     up :: Maybe Value,
     down :: Maybe Value,
     last :: Port',
-    program :: [Instruction],
     pc :: Address,
     runState :: RunState
   }
   deriving (Eq, Show)
 
-createTileState :: [Instruction] -> TileState
+data T21 = T21
+  { tileState :: TileState,
+    program :: [Instruction]
+  }
+  deriving (Eq, Show)
+
+createTileState :: [Instruction] -> T21
 createTileState program =
-  TileState
-    { acc = 0,
-      bak = 0,
-      left = Nothing,
-      right = Nothing,
-      up = Nothing,
-      down = Nothing,
-      last = UP,
-      program = program,
-      pc = 0,
-      runState = Running
-    }
+  T21
+    { tileState =
+        TileState
+          { acc = 0,
+            bak = 0,
+            left = Nothing,
+            right = Nothing,
+            up = Nothing,
+            down = Nothing,
+            last = UP,
+            pc = 0,
+            runState = Ready
+          },
+      program = program
+    }

src/TIS100/Nodes/T30.hs

@@ -0,0 +1,6 @@
+module TIS100.Nodes.T30 where
+
+import TIS100.Nodes.Base (Value (..))
+
+newtype T30 = Stack [Value]
+  deriving (Eq, Show)

src/TIS100/Simulator/CPU.hs

@@ -0,0 +1,7 @@
+module TIS100.Simulator.CPU where
+
+import TIS100.Nodes.T21 (T21 (..))
+import TIS100.Nodes.T30 (T30 (..))
+
+data Node = InactiveNode | Node21 T21 | Node30 T30
+  deriving (Eq, Show)