load mem (Register DT) = readSTRef (delayTimer mem) >>= \v -> return $ MemoryValue8 v
load mem (Register DT) = readSTRef (delayTimer mem) >>= \v -> return $ MemoryValue8 v
load mem (Register DT) = readSTRef (delayTimer mem) >>= \v -> return $ MemoryValue8 v