load mem (Register I)  = readSTRef (registerI mem) >>= \v -> return $ MemoryValue16 v
load mem (Register I)  = readSTRef (registerI mem) >>= \v -> return $ MemoryValue16 v
load mem (Register I)  = readSTRef (registerI mem) >>= \v -> return $ MemoryValue16 v