prgStore :: Mapper s -> MemoryMap s -> Word16 -> Word8 -> ST s ()
prgStore (Mapper0 _) mem addr w8 =
    when (addr >= 0x6000 && addr < 0x8000) $ writeArray (prgRAM mem) (addr .&. 0x1FFF) w8
prgStore :: Mapper s -> MemoryMap s -> Word16 -> Word8 -> ST s ()
prgStore (Mapper0 _) mem addr w8 =
    when (addr >= 0x6000 && addr < 0x8000) $ writeArray (prgRAM mem) (addr .&. 0x1FFF) w8
prgStore (Mapper0 _) mem addr w8 =
    when (addr >= 0x6000 && addr < 0x8000) $ writeArray (prgRAM mem) (addr .&. 0x1FFF) w8