getReg :: Int -> MipsEnv Int32
getReg sr = do
  state <- get
  let regs = intRegisters state
  return (regs !! sr)

-- works as store word
-- MIPS is (according to Oleks big endian) 
getReg :: Int -> MipsEnv Int32
getReg sr = do
  state <- get
  let regs = intRegisters state
  return (regs !! sr)

-- works as store word
-- MIPS is (according to Oleks big endian) 
getReg sr = do
  state <- get
  let regs = intRegisters state
  return (regs !! sr)

-- works as store word
-- MIPS is (according to Oleks big endian) 