Emulation/Stellarator
1
0
Fork 0
mirror of https://github.com/dpiponi/Stellarator.git synced 2024-06-01 02:37:48 -04:00
Code Issues Packages Projects Releases Wiki Activity

Tidied up a bit (2)

Browse source
This commit is contained in:
Dan Piponi 2019-09-01 12:02:10 -07:00
parent 419cbab63f
commit 4c89f55fd8
1 changed files with 0 additions and 43 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

43
src/ALU.hs
View file

@ -134,14 +134,6 @@ cpy mode = do
putC $ new < 0x100
setNZ_ $ i8 new
-- -- 2 clock cycles
-- -- {-# INLINABLE txs #-}
-- txs :: MonadAtari ()
-- txs = do
-- tick 1
-- discard $ getPC >>= readMemory
-- getX >>= putS
-- 2 clock cycles
-- {-# INLINABLE txs #-}
txs :: MonadAtari ()
@ -149,15 +141,6 @@ txs = do
discard $ getPC >>= readMemoryTick
getX >>= putS
-- -- 2 clock cycles
-- -- {-# INLINABLE tra #-}
-- tra :: MonadAtari Word8 -> (Word8 -> MonadAtari ()) ->
-- MonadAtari ()
-- tra getReg putReg = do
-- tick 1
-- discard $ getPC >>= readMemory
-- getReg >>= setNZ >>= putReg
-- 2 clock cycles
-- {-# INLINABLE tra #-}
tra :: MonadAtari Word8 -> (Word8 -> MonadAtari ()) ->
@ -166,32 +149,6 @@ tra getReg putReg = do
discard $ getPC >>= readMemoryTick
getReg >>= setNZ >>= putReg
-- -- 2 clock cycles
-- -- {-# INLINABLE inr #-}
-- inr :: MonadAtari Word8 -> (Word8 -> MonadAtari ()) -> MonadAtari ()
-- inr getReg putReg = do
-- tick 1
-- discard $ getPC >>= readMemory
-- -- v0 <- getReg
-- -- let v1 = v0+1
-- -- discard $ setNZ v1
-- -- putReg v1
-- -- getReg >>= return . (+ 1) >>= setNZ >>= putReg
-- getReg & fmap (+ 1) >>= setNZ >>= putReg
--
-- -- 2 clock cycles
-- -- {-# INLINABLE der #-}
-- der :: MonadAtari Word8 -> (Word8 -> MonadAtari ()) -> MonadAtari ()
-- der getReg putReg = do
-- tick 1
-- discard $ getPC >>= readMemory
-- -- v0 <- getReg
-- -- let v1 = v0-1
-- -- discard $ setNZ v1
-- -- putReg v1
-- -- getReg >>= return . (subtract 1) >>= setNZ >>= putReg
-- getReg & fmap (subtract 1) >>= setNZ >>= putReg
-- 2 clock cycles
-- {-# INLINABLE inr #-}
inr :: MonadAtari Word8 -> (Word8 -> MonadAtari ()) -> MonadAtari ()