GeSHi (c):////////////////////////////////////////////////////////////////////////////////////////// DS1307.C ////// Driver for Real Time Clock ////// modified by Redpic 08/2006 ////// http://picmania.garcia-cuervo.com ////// ////// void ds1307_init(val) ////// - Enable oscillator without clearing the seconds register ////// used when PIC loses power and DS1307 run from 3V BAT ////// - Config Control Register with next parameters: ////// DS1307_ALL_DISABLED All disabled ////// DS1307_OUT_ON_DISABLED_HIHG Out to Hight on Disable Out ////// DS1307_OUT_ENABLED Out Enabled ////// DS1307_OUT_1_HZ Freq. Out to 1 Hz ////// DS1307_OUT_4_KHZ Freq. Out to 4.096 Khz ////// DS1307_OUT_8_KHZ Freq. Out to 8.192 Khz ////// DS1307_OUT_32_KHZ Freq. Out to 32.768 Khz ////// ////// Example init: ////// ds1307_init(DS1307_ALL_DISABLED); ////// ds1307_init(DS1307_OUT_ENABLED | DS1307_OUT_1_HZ); ////// ////// void ds1307_set_date_time(day,mth,year,dow,hour,min,sec) - Set the date/time ////// ////// void ds1307_get_date(day,mth,year,dow) - Get the date ////// ////// void ds1307_get_time(hr,min,sec) - Get the time ////// ////// char ds1307_read_nvram_byte(char addr) - Read byte in address ////// ////// void ds1307_write_nvram_byte(char addr, char value) - Write byte in address ////// ////// void ds1307_get_day_of_week(char* ptr) - Get string Day Of Week////// ////// If defined USE_INTERRUPTS all functions disable Global Interrupts on starts and ////// enable Global on ends else usar can do it hiself ////// ////////////////////////////////////////////////////////////////////////////////////////// #ifndef RTC_SDA#define RTC_SDA PIN_B0#define RTC_SCL PIN_B1#endif #use i2c(master, sda=RTC_SDA, scl=RTC_SCL) #define DS1307_ALL_DISABLED 0b00000000 // All disabled#define DS1307_OUT_ON_DISABLED_HIHG 0b10000000 // Out to Hight on Disable Out#define DS1307_OUT_ENABLED 0b00010000 // Out Enabled#define DS1307_OUT_1_HZ 0b00000000 // Freq. Out to 1 Hz#define DS1307_OUT_4_KHZ 0b00000001 // Freq. Out to 4.096 Khz#define DS1307_OUT_8_KHZ 0b00000010 // Freq. Out to 8.192 Khz#define DS1307_OUT_32_KHZ 0b00000011 // Freq. Out to 32.768 Khz #define Start_user_address_nvram 0x08#define End_user_address_nvram 0x3f char days_of_week[7][11]={"Lunes\0","Martes\0","Miércoles\0","Jueves\0","Viernes\0","Sábado\0","Domingo\0"}; byte ds1307_bin2bcd(byte binary_value);byte ds1307_bcd2bin(byte bcd_value); void ds1307_init(int val){ byte seconds = 0; #ifndef USE_INTERRUPTS disable_interrupts(global);#endif i2c_start(); i2c_write(0xD0); i2c_write(0x00); i2c_start(); i2c_write(0xD1); seconds = ds1307_bcd2bin(i2c_read(0)); i2c_stop(); seconds &= 0x7F; delay_us(3); i2c_start(); i2c_write(0xD0); i2c_write(0x00); i2c_write(ds1307_bin2bcd(seconds)); i2c_start(); i2c_write(0xD0); i2c_write(0x07); i2c_write(val); i2c_stop(); #ifndef USE_INTERRUPTS enable_interrupts(global);#endif } void ds1307_set_date_time(byte day, byte mth, byte year, byte dow, byte hr, byte min, byte sec){ #ifndef USE_INTERRUPTS disable_interrupts(global);#endif sec &= 0x7F; hr &= 0x3F; i2c_start(); i2c_write(0xD0); i2c_write(0x00); i2c_write(ds1307_bin2bcd(sec)); i2c_write(ds1307_bin2bcd(min)); i2c_write(ds1307_bin2bcd(hr)); i2c_write(ds1307_bin2bcd(dow)); i2c_write(ds1307_bin2bcd(day)); i2c_write(ds1307_bin2bcd(mth)); i2c_write(ds1307_bin2bcd(year)); i2c_stop(); #ifndef USE_INTERRUPTS enable_interrupts(global);#endif } void ds1307_get_date(byte &day, byte &mth, byte &year, byte &dow){ #ifndef USE_INTERRUPTS disable_interrupts(global);#endif i2c_start(); i2c_write(0xD0); i2c_write(0x03); i2c_start(); i2c_write(0xD1); dow = ds1307_bcd2bin(i2c_read() & 0x7f); day = ds1307_bcd2bin(i2c_read() & 0x3f); mth = ds1307_bcd2bin(i2c_read() & 0x1f); year = ds1307_bcd2bin(i2c_read(0)); i2c_stop(); #ifndef USE_INTERRUPTS enable_interrupts(global);#endif } void ds1307_get_time(byte &hr, byte &min, byte &sec){ #ifndef USE_INTERRUPTS disable_interrupts(global);#endif i2c_start(); i2c_write(0xD0); i2c_write(0x00); i2c_start(); i2c_write(0xD1); sec = ds1307_bcd2bin(i2c_read() & 0x7f); min = ds1307_bcd2bin(i2c_read() & 0x7f); hr = ds1307_bcd2bin(i2c_read(0) & 0x3f); i2c_stop(); #ifndef USE_INTERRUPTS enable_interrupts(global);#endif } char ds1307_read_nvram_byte(char addr){ char retval; #ifndef USE_INTERRUPTS disable_interrupts(global);#endif i2c_start(); i2c_write(0xD0); i2c_write(addr); i2c_start(); i2c_write(0xD1); retval = i2c_read(0); i2c_stop(); return(retval); #ifndef USE_INTERRUPTS enable_interrupts(global);#endif } void ds1307_write_nvram_byte(char addr, char value){ #ifndef USE_INTERRUPTS disable_interrupts(global);#endif i2c_start(); i2c_write(0xD0); i2c_write(addr); i2c_write(value); i2c_stop(); #ifndef USE_INTERRUPTS enable_interrupts(global);#endif } void ds1307_get_day_of_week(char* ptr){ byte lday; byte lmonth; byte lyr; byte ldow; ds1307_get_date(lday,lmonth,lyr,ldow); sprintf(ptr,"%s",days_of_week[ldow]);} /////////////////////////////////////////////////////////////////////////////// byte ds1307_bin2bcd(byte binary_value){ byte temp; byte retval; temp = binary_value; retval = 0; while(1){ if(temp >= 10){ temp -= 10; retval += 0x10; }else{ retval += temp; break; } } return(retval);} byte ds1307_bcd2bin(byte bcd_value){ byte temp; temp = bcd_value; temp >>= 1; temp &= 0x78; return(temp + (temp >> 2) + (bcd_value & 0x0f));} ///////////////////////////////////////////////////////////////////////////////
GeSHi (c):// Real Time Clock & NVRAM// Hardware DS1307 of Dallas Maxim// With interface I2C #include <18f4550.h>#fuses HS,MCLR,NOWDT,NOPROTECT,NOPUT,NOBROWNOUT,NOPBADEN,NOLVP,NOCPD,NODEBUG,NOWRT,NOVREGEN#use delay(clock=20000000)#use rs232(baud=9600, xmit=PIN_C6, rcv=PIN_C7) // Libreria DS1307.c ////////////////////////////////////////////////////////// #define RTC_SDA PIN_B0#define RTC_SCL PIN_B1 #define USE_INTERRUPTS 1 #include <_ds1307.c> /////////////////////////////////////////////////////////////////////////////// const char Version[]="1.0.D\0"; int1 flanco=0;int1 dump,kdump;int n,i=0x00;char c=0x00;char rec=0x00; byte sec;byte min;byte hrs;byte day;byte month;byte yr;byte dow;char sdow[11]; // INTERRUPCION por RECEPCION SERIE ------------------------------------------- #int_rdavoid serial_isr() { rec=0x00; if(kbhit()){ rec=getc(); if(rec=='o'){ dump=1; } if(rec=='f'){ dump=0; } rec=0x00; }} // INTERRUPCION por EXT2 Clock Out -------------------------------------------- #int_ext2ext2_handler() { if(flanco==1){ ext_int_edge(2,H_TO_L); output_high(PIN_E0); }else{ ext_int_edge(2,L_TO_H); output_low(PIN_E0); } ++flanco;} //----------------------------------------------------------------------------- void flash_porte(void){ for(i=0;i<3;i++){ output_e(0x07); delay_ms(75); output_e(0x00); delay_ms(75); }} void lee_y_transmite_date_and_time(void){ ds1307_get_day_of_week((char*) sdow); ds1307_get_date(day,month,yr,dow); ds1307_get_time(hrs,min,sec); printf("\f\%s \%02d/\%02d/\%02d ",sdow,day,month,yr); printf("\%02d:\%02d:\%02d\r\n", hrs,min,sec);} void main() { disable_interrupts(global); disable_interrupts(int_timer1); disable_interrupts(int_rda); disable_interrupts(int_ext); disable_interrupts(int_ext1); disable_interrupts(int_ext2); setup_adc_ports(NO_ANALOGS); setup_adc(ADC_OFF); setup_spi(FALSE); setup_psp(PSP_DISABLED); setup_counters(RTCC_INTERNAL,RTCC_DIV_2); setup_timer_0(RTCC_OFF); setup_timer_1(T1_INTERNAL | T1_DIV_BY_1); setup_timer_2(T2_DISABLED,0,1); setup_timer_3(T3_DISABLED); setup_comparator(NC_NC_NC_NC); setup_vref(FALSE); port_b_pullups(FALSE); set_tris_b(0b00000111); set_tris_e(0b00010000); output_e(0x00); set_tris_c(0b10000000); delay_ms(500); printf("\r\n"); printf("[RRBOARD2] Real Time Clock version %s\r\n",version); printf("based on DS1307 Dallas Maxim Hardware\r\n\n"); printf("Available RS232 commands:\r\n"); printf(" [o] Dump Date & Time ON\r\n"); printf(" [f] Dump Date & Time OFF\r\n\n"); flash_porte(); ext_int_edge(2,H_TO_L); flanco=0; enable_interrupts(int_ext2); enable_interrupts(int_rda); enable_interrupts(global); // Inicializa DS1307 printf("Inicializando DS1307 ...\r\n\n"); ds1307_init(DS1307_OUT_ON_DISABLED_HIHG | DS1307_OUT_ENABLED | DS1307_OUT_1_HZ); // Set date for -> 5 Agosto 2006 Viernes // Set time for -> 02:50:00 // printf("Set Date & Time to ...\r\n"); // ds1307_set_date_time(5,8,6,5,2,50,00); // Lee Fecha y Hora actual y transmite printf("Fecha y Hora actual en el DS1307\r\n\n"); lee_y_transmite_date_and_time(); printf("\r\n\n"); // Test de RAM -> primero Write, segundo Read printf("Test de la NVRAM interna (Write and read) ...\r\n\n"); for(i=Start_user_address_nvram;i<end_user_address_nvram+1;i++){ ds1307_write_nvram_byte(i,i); } n=0; for(i=Start_user_address_nvram;i<end_user_address_nvram+1;i++){ c=ds1307_read_nvram_byte(i); printf("%X ",c); if(++n==0x0f){ n=0; printf("\r\n"); } } printf("\r\n"); dump = 0; kdump= 1; do{ if(dump==1){ if((dump!=kdump)&&dump==1){ printf("Set Dump ON\r\n\n"); kdump=dump; } delay_ms(1000); lee_y_transmite_date_and_time(); }else{ if((dump!=kdump)&&dump==0){ printf("\r\nSet Dump OFF\r\n\n"); kdump=dump; } } } while (TRUE);}
Autor