works even better now

2025-02-19 18:28:08 -05:00 · 2025-02-19 18:28:08 -05:00 · 003a1c8545
commit 003a1c8545
parent f9248057f9
2 changed files with 47 additions and 33 deletions
--- a/hs/Simulation.hs
+++ b/hs/Simulation.hs
@ -79,6 +79,6 @@ simulation args = do
    InitializedPeripherals ram -> do

      let initState = machineInit $ Machine.Peripherals ram
-      sim <- simulationLoop 5 initState
+      sim <- simulationLoop 15 initState
      teardownPeripherals
      return $ Success sim