DS1307 RTC example

[KVLV]

just some code correction. as the above was posted 6 months ago. the attachment is the corrected code.

' Dec 18.2010:
' rewrite so that we can adjust the day of the month of OCt, November and December
' please read FindDays to be clear.
' in the FindDays sub, the SetMonth to be in Decimal from 0 to 12.
' code rewrite in the adjustment of the date of the month
' variable Dummy was created

[financecatalyst]

Little confused with BCD to Decimal conversion and vice versa.
Please clarify, if I have 3 variables sec, minu, hrs and want decimal values in them, is the following correct?
AIM: To get the decimal values inside sec (0-59), minu (0-59) & Hrs (0-23)
The first thing my code is doing is resetting DS1307 with the following line of code:

I2CWRITE SDA,SCL,$D0,$00,[$17,$3B,$17,$01,$00,$00,$00,$90]

The above line only executes once only when PIC is powered for the first time only.
As you can see I choose a 24Hr format for my time. I also want to start my time with 23:59:23. I am only interested in hrs,min,sec,day only.
Now if I read back the time:

I2CREAD SDA,SCL,$D1,$00,[STR DB0\8]

and want decimal values in my variables, please guide what is the correct way of doing it as the following is not working

temp=db0[0]
sec =(temp>>4)*10+(temp & $0F)

temp=db0[1]
minu =(temp>>4)*10+(temp & $0F)

temp=db0[2]
hrs=(temp>>4)*10+(temp & $0F)
Lcdout $FE,1,DEC2 sec," : ",DEC2 minu," : ",DEC2 hrs

[mackrackit]

http://www.picbasic.co.uk/forum/show...1307#post43215

[financecatalyst]

Thanks Mack, I have seen the code there and tried it as well, but it is giving errors. Also I don't see any variable saving values in Decimal format coming from DS1307 and converting decimal to BCD as well to store in DS1307.

[mackrackit]

This is using a different RTC but it has DEC vars.
http://www.picbasic.co.uk/forum/cont...USB-SD-LOGGING

[xapmanis]

Thank you a LOT Malcolm for your owsome code !! i tried on PIC16F628A ( with some modifications [changed the LCD disp with a Serout to my PCTerminal] ).
It is a rly nice code for starters i can do so many things now !!
Best regards, Kostas.