diff options
Diffstat (limited to 'fig-emulator-gb/src/Fig/Emulator/GB/Utils.hs')
| -rw-r--r-- | fig-emulator-gb/src/Fig/Emulator/GB/Utils.hs | 8 |
1 files changed, 8 insertions, 0 deletions
diff --git a/fig-emulator-gb/src/Fig/Emulator/GB/Utils.hs b/fig-emulator-gb/src/Fig/Emulator/GB/Utils.hs index 694f2ea..4d00743 100644 --- a/fig-emulator-gb/src/Fig/Emulator/GB/Utils.hs +++ b/fig-emulator-gb/src/Fig/Emulator/GB/Utils.hs @@ -4,10 +4,18 @@ import Fig.Prelude import Prelude (fromIntegral) +import qualified Text.Printf as Pr + import Data.Word (Word8, Word16) import Data.Int (Int8) import Data.Bits +show8 :: Word8 -> Text +show8 = pack . Pr.printf "%02X" + +show16 :: Word8 -> Text +show16 = pack . Pr.printf "%04X" + w8w8 :: Word8 -> Word8 -> Word16 w8w8 high low = shiftL (fromIntegral high) 8 .|. fromIntegral low |