DS1302 16F628 Woes

[elec_mech]

idtat,

I'm attempting to use the DS1302 myself with luck as well. Now, I haven't read through your code to any great extend, but one thing jumped out at me:

w_in:
mem = reg_adr ' Set mem variable to reg_adr contents
high rst ' Activate the DS1302
shiftout dq,clk,0, [mem] ' Send control byte
shiftin dq,clk,1, [mem] ' Retrieve data in from the DS1302
low rst ' Deactivate DS1302
return

I'm assuming you're using burst mode? Regardless, in either burst mode or the non-burst mode, you have to use LSB. I see you did that for your shiftouts, but not for your shiftin above. In other words, try changing this:

shiftin dq,clk,1, [mem] ' Retrieve data in from the DS1302

to this:

shiftin dq,clk,0, [mem] ' Retrieve data in from the DS1302

Let me know if you have luck. I'm trying to read seconds and I'm getting junk.

[elec_mech]

Okay, I'm an idiot. I didn't realize a '1' in shiftin is for LSB, whereas a '1' in shiftout is MSB. I came across some other code (haven't tried it yet) on the forum that may help:

http://www.picbasic.co.uk/forum/show...ghlight=ds1302


Good luck.