Added test rom/rom loading

GameCom.cabal

@@ -24,7 +24,7 @@ library
 
 executable GameCom
   main-is:             Main.hs
-  build-depends:       base, data-default, GameCom, sdl2
+  build-depends:       base, data-default, bytestring, directory, GameCom, sdl2
   hs-source-dirs:      src/main
   default-language:    Haskell2010
 

src/main/Main.hs

@@ -4,19 +4,23 @@ module Main where
 
 import Control.Concurrent (threadDelay)
 import Control.Monad (forM_)
+import qualified Data.ByteString as BS
 import Data.Default (Default(..))
 import Foreign.C.Types
 import GameCom (step)
 import Memory (MachineState(..), Color)
 import PPU (getPixel)
+import ROM (parseROM)
 import SDL.Vect
 import qualified SDL
+import System.Directory (getCurrentDirectory)
 
 width = 256
 height = 240
 scale = 4
-frameDelayMs = 100
+frameDelayMs = 0
 endDelayMs = 5000000
+romName = "full_palette"
 
 draw :: MachineState -> SDL.Window -> IO ()
 draw state window =
@@ -38,14 +42,24 @@ loop state window newFrame n = do
     if newFrame
         then draw state window
         else return ()
+    if n `mod` 60 == 0
+        then putStrLn $ "Frames remaining: " ++ show n
+        else return ()
     SDL.updateWindowSurface window
     threadDelay frameDelayMs
     let (newFrame', state') = step state
     loop state' window newFrame' (n - 1)
 
+fromRight (Right x) = x
+fromRight (Left x) = error $ "ROM load failure: " ++ x
+
 main :: IO ()
 main = do
-    let state = def
+    pwd <- getCurrentDirectory
+    putStrLn $ "Working Directory: " ++ pwd
+    romBytes <- BS.readFile $ "roms/" ++ romName ++ ".nes"
+
+    let state = def { rom = fromRight $ parseROM romBytes }
     SDL.initialize [SDL.InitVideo]
 
     window <- SDL.createWindow
@@ -54,7 +68,7 @@ main = do
                  { SDL.windowInitialSize = V2 (256 * scale) (240 * scale) }
     SDL.showWindow window
 
-    loop state window True 1
+    loop state window True 10000
 
     putStrLn "Clock stopped"
     threadDelay endDelayMs