Found the problem
told you i was stupid

I2CWrite DS_SDA, DS_SCL, RTC, ContReg,[$20]
should be
I2CWrite DS_SDA, DS_SCL, RTC, ContReg,[%00000001]