From 9d875ab8fb539246e3aea0aae58d2c9f227c8276 Mon Sep 17 00:00:00 2001
From: LLLL Colonq <llll@colonq>
Date: Wed, 17 Apr 2024 22:45:19 -0400
Subject: Some basic emulator graphics

---
 .../src/Fig/Emulator/GB/Component/Serial.hs        | 31 ++++++++++++++++++++++
 1 file changed, 31 insertions(+)
 create mode 100644 fig-emulator-gb/src/Fig/Emulator/GB/Component/Serial.hs

(limited to 'fig-emulator-gb/src/Fig/Emulator/GB/Component/Serial.hs')

diff --git a/fig-emulator-gb/src/Fig/Emulator/GB/Component/Serial.hs b/fig-emulator-gb/src/Fig/Emulator/GB/Component/Serial.hs
new file mode 100644
index 0000000..68bc477
--- /dev/null
+++ b/fig-emulator-gb/src/Fig/Emulator/GB/Component/Serial.hs
@@ -0,0 +1,31 @@
+module Fig.Emulator.GB.Component.Serial where
+
+import Fig.Prelude
+import Prelude (fromIntegral)
+
+import Data.Char (chr)
+
+import Fig.Emulator.GB.Utils
+import Fig.Emulator.GB.Bus
+
+newtype SerialError = SerialError Text
+  deriving Show
+instance Exception SerialError
+instance Pretty SerialError where
+  pretty (SerialError b) = mconcat
+    [ "joystick error: "
+    , b
+    ]
+
+compSerial :: (MonadIO m, MonadThrow m) => Component m
+compSerial = Component
+  { compState = ()
+  , compMatches = (== 0xff01)
+  , compUpdate = \s _ -> pure s
+  , compWrite = \s _ v -> do
+      log $ mconcat
+        [ "wrote serial byte: ", tshow $ chr $ fromIntegral v
+        ]
+      pure s
+  , compRead = \_ _ -> pure 0x00
+  }
-- 
cgit v1.2.3