dad         :: Reg16 -> CPU ()
dad rp      = do tick 10
                 a <- use (reg16 rp)
                 reg16 HL += a
dad         :: Reg16 -> CPU ()
dad rp      = do tick 10
                 a <- use (reg16 rp)
                 reg16 HL += a
dad rp      = do tick 10
                 a <- use (reg16 rp)
                 reg16 HL += a