diff options
| author | LLLL Colonq <llll@colonq> | 2024-05-13 03:39:51 -0400 |
|---|---|---|
| committer | LLLL Colonq <llll@colonq> | 2024-05-13 03:39:51 -0400 |
| commit | 2fec6e70b2b583299bcbbda0b596a5a9c275e93e (patch) | |
| tree | 02e9676a4c3923e49818ec150460bbeaa322dc17 /fig-emulator-gb/src/Fig/Emulator/GB/CPU.hs | |
| parent | b677a422d3d434a45e9dcdc189c40f8224cc8dc8 (diff) | |
fig-emulator-gb: Debugging the PPU
Diffstat (limited to 'fig-emulator-gb/src/Fig/Emulator/GB/CPU.hs')
| -rw-r--r-- | fig-emulator-gb/src/Fig/Emulator/GB/CPU.hs | 4 |
1 files changed, 3 insertions, 1 deletions
diff --git a/fig-emulator-gb/src/Fig/Emulator/GB/CPU.hs b/fig-emulator-gb/src/Fig/Emulator/GB/CPU.hs index 651b27b..26a00de 100644 --- a/fig-emulator-gb/src/Fig/Emulator/GB/CPU.hs +++ b/fig-emulator-gb/src/Fig/Emulator/GB/CPU.hs @@ -110,6 +110,7 @@ updateComps t = do decode :: Emulating Instruction decode = do + updateComps 4 b <- use bus pc <- use $ regs . regPC lastPC .= pc @@ -126,6 +127,7 @@ cond CondC = use (regs . regFlagC) read8 :: Addr -> Emulating Word8 read8 a = do + updateComps 4 b <- use bus pc <- use lastPC ins <- use lastIns @@ -149,6 +151,7 @@ read16 a = do write8 :: Addr -> Word8 -> Emulating () write8 a v = do + updateComps 4 b <- use bus b' <- liftIO $ Bus.write b a v bus .= b' @@ -677,7 +680,6 @@ step ins = do CbSetB3R8 (B3 idx) r -> {-# SCC "CbSetB3R8" #-} do v <- r8 r setR8 r $ v .|. shiftL 0b1 idx - updateComps 4 where unimplemented :: Emulating () unimplemented = do |