DS 3231 temperature reading

[visnja30]

 
 
       TempRegister CON $11        'temperature integer  REGISTER
       TempRegisterFRA CON $12   'temperature fraction REGISTER
       
       
TempInt var byte             ' variable for temperature integer from register 11h
TempFrac var byte           ' variable for temperature fraction for register 12h
TempSign var bit              ' Variable to hold sign bit   


main: 

LCDOut $fe,1

       B0 = 0
       button Taster0, 0, 100, 10, B0, 1, meni0


           
       I2CRead SDA, SCL, RTC, SecReg, [sec,MINs,hr,day,date,mon,yr] 


        LCDOut $fe,2,     HEX2 hr, ":", HEX2 MINs, ":", HEX2 sec 
        LCDOut $fe,$c0, HEX2 date, "/", HEX2 mon, "/","20" ,HEX2 yr
        
        
        
            
       I2Cread SDA, SCL, rtc, TempRegister, [TempInt, TempFrac]
       
       TempFrac = (TempFrac >> 6)
       TempFrac = (TempFrac * 25)
       
       
       
       TempSign = TempInt.7   ' save the sign bit for later

If TempSign = 1 then  TempInt = (TempInt XOR $FF) + 1
 



If TempSign = 0 then
    LCDOUT $FE, $80+9,   "+", dec TempInt, ".",DEC TempFrac
Else
    LCDOUT $FE, $80+9,   "-", dec TempInt, ".",DEC TempFrac
Endif
         
       
    
       
       GoTo main

The piece of main part of the code in which I read time, date and temperature.
The example shows only the registers and variables to read temperature