isaac
- 2nd April 2012, 17:34
Hello All
Just need a bit of help here .
I am trying to use the DS1337 as an alarm with INTA (pin 3 of Ds1337) connected to RB0 Interupt pin of my Pic
so that anytime the alarm time is reached it pulls RB0. This part is working ok.
i want to use the other INTB (pin 7 ) to generate a 1 Hz tick .
so using the datasheet on pages 10 & 11 i set my control register to 00000001
as pg 10
http://www.maxim-ic.com/datasheet/index.mvp/id/3128
but i still don't get the 1hz tick on pin 7 here is my code below i must be doing something really stupid
'************************************************* ***************
'* Name : ALARM1.BAS *
'* Author : [SANTANA] *
'* Notice : Copyright (c) 2004 [select VIEW...EDITOR OPTIONS] *
'* : All Rights Reserved *
'* Date : 30/10/2004 *
'* Version : 1.0 *
'* Notes :THE PROGRAM USES A TRIGGERS AN ALARM WHEN THE *
'* :ALARM TIME SET BY THE USER MATCHS THAT OF THE RTC *
'* :ON PIN 3 OF A DS1337 *
'* :THE HRS:MINS & SECS MUST MATCH EXACTLY ON BOTH *
'* :THE MAIN RTC TIME AND THE ALARM TIME
'************************************************* ***************
DEFINE LOADER_USED 1 ' uses a bootloader
Include "Modedefs.Bas"
Define OSC 20
clear
@ __CONFIG _CONFIG1H, _OSCS_OFF_1H & _HS_OSC_1H
' Setup Hardware for uart
DEFINE HSER_BAUD 9600
DEFINE HSER_RCSTA 90h
DEFINE HSER_TXSTA 24h
DEFINE HSER_CLROERR 1
' Clock Defines
' ----------------
DS_SCL VAR PORTC.0 ' I2C clock pin
DS_SDA VAR PORTC.1 ' I2C data pin
RTC CON %11010000 ' RTC device address (byte addressing)
' -------------- RTC Address definitions -----------------
SecReg CON $00 ' seconds address (00 - 59) ' MSB of SecReg must be set to a 0 to enable RTC
MinReg CON $01 ' minutes address (00 - 59)
HourReg CON $02 ' hours address (01 - 12) or (00 - 23)
DayReg CON $03 ' day address (1 - 7)
DateReg CON $04 ' date address (01 - 28/29, 30, 31)
MonthReg CON $05 ' month address (01 - 12)
YearReg CON $06 ' year address (00 - 99)
'Alarm 1 Address definitions
'===========================
Alm1sec CON $07 ' Alarm 1 seconds address (00 - 59)
Alm1min CON $08 ' Alarm 1 minutes address (00 - 59)
Alm1hr CON $09 ' Alarm 1 hours address (01 - 12) or (00 - 23)
Alm1Day CON $0A ' Alarm 1 day address (1 - 7)
'Alarm 2 Address definitions
'===========================
Alm2min CON $0B ' Alarm 2 minutes address (00 - 59)
Alm2hr CON $0C ' Alarm 2 hours address (01 - 12) or (00 - 23)
Alm2Day CON $0D ' Alarm 2 day address (1 - 7)
ContReg CON $0E ' control register
StatusReg CON $0F ' STATUS register
cntrl CON %00000001 ' sets the SQW/OUT to 1Hz pulse, logic level low
'set interupt on INTA (From pg 9 of data sheet)
sec VAR BYTE ' seconds
MINs VAR BYTE ' minutes
hr VAR BYTE ' hours
day VAR BYTE ' day
date VAR BYTE ' date
mon VAR BYTE ' month
yr VAR BYTE ' year
'ALARM1 VARIABLES
'===============
A1sec VAR BYTE ' seconds
A1MINs VAR BYTE ' minutes
A1hr VAR BYTE ' hours
A1day VAR BYTE ' day
flag var byte
' Initialise Hardware
' -------------------
'ADCON1=7
TRISA =%00100000
TRISB =%11100111
TRISC =%10000001
TRISD =%00000000
VCC_EN VAR PORTB.6
LCD_EN VAR PORTB.3
HIGH VCC_EN
Pause 1000
hserout [" DS1337 TEST " ,10,13]
flag=0
GoSub SetTimeAndDate
' Main Program Loop
' -----------------
Loopx:
I2CRead DS_SDA, DS_SCL, RTC, SecReg, [sec,MINs,hr,day,date,mon,yr]
I2CRead DS_SDA, DS_SCL, RTC, Alm1sec,[A1sec,A1MINs,A1hr,A1day]
I2Cread DS_SDA, DS_SCL, RTC, StatusReg,[flag]
hserout["Alarm Time : ",HEX2 A1hr, ":", HEX2 A1MINs, ":", HEX2 A1sec ," "]
hserout["Present Time: ",HEX2 hr, ":", HEX2 MINs, ":", HEX2 sec ,10,13]
if flag.0=1 then gosub Take_Reading
pause 1000
GoTo Loopx
End
' Read Ds1337
' Display Section
' ---------------
Take_Reading:
hserout ["ALARM TRIGGERED",10,13 ]
Pause 1000 ' Allow Time for user to view
gosub SetTimeAndDate ' RESET TIMER
I2CWrite DS_SDA, DS_SCL, RTC, StatusReg,[%00000000]' clear status reg<------
PAUSE 10
return
SetTimeAndDate:
'=============
yr=0:date =0:mon =0:day=0:hr=0:mins=0:sec=0
A1sec=0:A1MINs=0:A1hr=0: A1day=0
' The constants below set the RTC to: 16:30:50 on 13-08-2004
'#################################################
yr=$04
mon=$08
date=$13
day=$01
hr=$16
mins=$30
sec=$50
'SET ALARM FOR 16:31:05
A1hr=$16
A1MINs=$31
A1sec=$05
A1day=$13
'Set the main Time
I2CWrite DS_SDA, DS_SCL, RTC, SecReg,[sec,mins,hr,day,date,mon,yr]
Pause 10
'Set the Alarm 1 Time
I2CWrite DS_SDA, DS_SCL, RTC, ContReg,[$20]
Pause 10
I2CWrite DS_SDA, DS_SCL, RTC, StatusReg,[%00000000]
PAUSE 10
I2CWrite DS_SDA, DS_SCL, RTC,Alm1sec,[A1sec,A1MINs,A1hr,A1day]
Pause 10
I2CWrite DS_SDA, DS_SCL, RTC, ContReg,[5]
Pause 10
Return
Regards
Isaac
Just need a bit of help here .
I am trying to use the DS1337 as an alarm with INTA (pin 3 of Ds1337) connected to RB0 Interupt pin of my Pic
so that anytime the alarm time is reached it pulls RB0. This part is working ok.
i want to use the other INTB (pin 7 ) to generate a 1 Hz tick .
so using the datasheet on pages 10 & 11 i set my control register to 00000001
as pg 10
http://www.maxim-ic.com/datasheet/index.mvp/id/3128
but i still don't get the 1hz tick on pin 7 here is my code below i must be doing something really stupid
'************************************************* ***************
'* Name : ALARM1.BAS *
'* Author : [SANTANA] *
'* Notice : Copyright (c) 2004 [select VIEW...EDITOR OPTIONS] *
'* : All Rights Reserved *
'* Date : 30/10/2004 *
'* Version : 1.0 *
'* Notes :THE PROGRAM USES A TRIGGERS AN ALARM WHEN THE *
'* :ALARM TIME SET BY THE USER MATCHS THAT OF THE RTC *
'* :ON PIN 3 OF A DS1337 *
'* :THE HRS:MINS & SECS MUST MATCH EXACTLY ON BOTH *
'* :THE MAIN RTC TIME AND THE ALARM TIME
'************************************************* ***************
DEFINE LOADER_USED 1 ' uses a bootloader
Include "Modedefs.Bas"
Define OSC 20
clear
@ __CONFIG _CONFIG1H, _OSCS_OFF_1H & _HS_OSC_1H
' Setup Hardware for uart
DEFINE HSER_BAUD 9600
DEFINE HSER_RCSTA 90h
DEFINE HSER_TXSTA 24h
DEFINE HSER_CLROERR 1
' Clock Defines
' ----------------
DS_SCL VAR PORTC.0 ' I2C clock pin
DS_SDA VAR PORTC.1 ' I2C data pin
RTC CON %11010000 ' RTC device address (byte addressing)
' -------------- RTC Address definitions -----------------
SecReg CON $00 ' seconds address (00 - 59) ' MSB of SecReg must be set to a 0 to enable RTC
MinReg CON $01 ' minutes address (00 - 59)
HourReg CON $02 ' hours address (01 - 12) or (00 - 23)
DayReg CON $03 ' day address (1 - 7)
DateReg CON $04 ' date address (01 - 28/29, 30, 31)
MonthReg CON $05 ' month address (01 - 12)
YearReg CON $06 ' year address (00 - 99)
'Alarm 1 Address definitions
'===========================
Alm1sec CON $07 ' Alarm 1 seconds address (00 - 59)
Alm1min CON $08 ' Alarm 1 minutes address (00 - 59)
Alm1hr CON $09 ' Alarm 1 hours address (01 - 12) or (00 - 23)
Alm1Day CON $0A ' Alarm 1 day address (1 - 7)
'Alarm 2 Address definitions
'===========================
Alm2min CON $0B ' Alarm 2 minutes address (00 - 59)
Alm2hr CON $0C ' Alarm 2 hours address (01 - 12) or (00 - 23)
Alm2Day CON $0D ' Alarm 2 day address (1 - 7)
ContReg CON $0E ' control register
StatusReg CON $0F ' STATUS register
cntrl CON %00000001 ' sets the SQW/OUT to 1Hz pulse, logic level low
'set interupt on INTA (From pg 9 of data sheet)
sec VAR BYTE ' seconds
MINs VAR BYTE ' minutes
hr VAR BYTE ' hours
day VAR BYTE ' day
date VAR BYTE ' date
mon VAR BYTE ' month
yr VAR BYTE ' year
'ALARM1 VARIABLES
'===============
A1sec VAR BYTE ' seconds
A1MINs VAR BYTE ' minutes
A1hr VAR BYTE ' hours
A1day VAR BYTE ' day
flag var byte
' Initialise Hardware
' -------------------
'ADCON1=7
TRISA =%00100000
TRISB =%11100111
TRISC =%10000001
TRISD =%00000000
VCC_EN VAR PORTB.6
LCD_EN VAR PORTB.3
HIGH VCC_EN
Pause 1000
hserout [" DS1337 TEST " ,10,13]
flag=0
GoSub SetTimeAndDate
' Main Program Loop
' -----------------
Loopx:
I2CRead DS_SDA, DS_SCL, RTC, SecReg, [sec,MINs,hr,day,date,mon,yr]
I2CRead DS_SDA, DS_SCL, RTC, Alm1sec,[A1sec,A1MINs,A1hr,A1day]
I2Cread DS_SDA, DS_SCL, RTC, StatusReg,[flag]
hserout["Alarm Time : ",HEX2 A1hr, ":", HEX2 A1MINs, ":", HEX2 A1sec ," "]
hserout["Present Time: ",HEX2 hr, ":", HEX2 MINs, ":", HEX2 sec ,10,13]
if flag.0=1 then gosub Take_Reading
pause 1000
GoTo Loopx
End
' Read Ds1337
' Display Section
' ---------------
Take_Reading:
hserout ["ALARM TRIGGERED",10,13 ]
Pause 1000 ' Allow Time for user to view
gosub SetTimeAndDate ' RESET TIMER
I2CWrite DS_SDA, DS_SCL, RTC, StatusReg,[%00000000]' clear status reg<------
PAUSE 10
return
SetTimeAndDate:
'=============
yr=0:date =0:mon =0:day=0:hr=0:mins=0:sec=0
A1sec=0:A1MINs=0:A1hr=0: A1day=0
' The constants below set the RTC to: 16:30:50 on 13-08-2004
'#################################################
yr=$04
mon=$08
date=$13
day=$01
hr=$16
mins=$30
sec=$50
'SET ALARM FOR 16:31:05
A1hr=$16
A1MINs=$31
A1sec=$05
A1day=$13
'Set the main Time
I2CWrite DS_SDA, DS_SCL, RTC, SecReg,[sec,mins,hr,day,date,mon,yr]
Pause 10
'Set the Alarm 1 Time
I2CWrite DS_SDA, DS_SCL, RTC, ContReg,[$20]
Pause 10
I2CWrite DS_SDA, DS_SCL, RTC, StatusReg,[%00000000]
PAUSE 10
I2CWrite DS_SDA, DS_SCL, RTC,Alm1sec,[A1sec,A1MINs,A1hr,A1day]
Pause 10
I2CWrite DS_SDA, DS_SCL, RTC, ContReg,[5]
Pause 10
Return
Regards
Isaac