HOLA AMIGOS MI NOMBRE ES GIANCARLO , SOY NUEVO EN EL FORO Y NECESITO DE SU AYUDA CON URGENCIA, ESTOY FABRICANDO MI PROPELLER CLOCK, EL CUAL ES UN PROYECTO MUY COMÚN QUE HA SIDO MEJORADO POR VARIOS AUTORES. EL HARDWARE NO ES PROBLEMA Y VOY PROGRESANDO, EL QUE SI ME HA RESULTADO UN GRAN PROBLEMA Y QUE ME HA ESTANCADO, ES EL SOFTWARE, YA QUE NO TENGO MUCHAS NOCIONES PERO PARA ELLO ME REGISTRÉ EN EL FORO, PARA APRENDER DE UDS.
INVESTIGANDO EN LA RED ENCONTRÉ UN PROGRAMA, EL ROLLO ES QUE MI COMPILADOR ES EL SOURCEBOOST Y EL PIC QUE DESEO UTILIZAR ES EL 16F88 (EL CUAL YA COMPRÉ) Y LES QUERÍA PEDIR SI ALGUIEN ME PUEDE AYUDAR A HACER EL SOFTWARE TOMANDO COMO MODELO ESTE QUE ADJUNTO ABAJO, O TAL VEZ CONSIDEREN MEJOR OTRO QUE UDS TENGAN, PERO LO QUE NECESITO ES ALGO QUE ME SIRVA PARA EL PIC QUE TENGO Y QUE PUEDA SER COMPILADO POR EL SOURCEBOOST.
ESPERO QUE ME PUEDAN AYUDAR, SI ES QUE PUDIERAN LO MAS PRONTO POSIBLE... SERÍA GENIAL!!!! (LLEVO SEMANAS INTENTANDOLO)
.
MUCHAS GRACIAS DE ANTEMANO.///////////////////////////////////////////////////////////////////////
//// propklok.C
//// Version: 0.99
//// pic: 16F628
////
//// Date: 3-1-2002
////
////
///////////////////////////////////////////////////////////////////////
#include <16F628.H>
#fuses HS, NOPROTECT, PUT, NOWDT, NOBROWNOUT, NOLVP,NOMCLR
#use delay(clock=16000000)
#use rs232( baud=9600, xmit=PIN_A2, rcv=PIN_A3)
#use i2c(master,sda=PIN_A1,scl=PIN_A4)
#define dcf_data pin_A5
#define hal pin_A0
#include <input.c>
CONST unsigned int dt[12][5]={
{0x3E,0x41,0x41,0x41,0x3E}, // 0
{0x00,0x21,0x7F,0x01,0x00}, // 1
{0x21,0x43,0x45,0x49,0x31}, // 2
{0x42,0x41,0x51,0x69,0x46}, // 3
{0x0C,0x14,0x24,0x7F,0x04}, // 4
{0x72,0x51,0x51,0x51,0x4E}, // 5
{0x1E,0x29,0x49,0x49,0x06}, // 6
{0x40,0x47,0x48,0x50,0x60}, // 7
{0x36,0x49,0x49,0x49,0x36}, // 8
{0x30,0x49,0x49,0x4A,0x3C}, // 9
{0x00,0x00,0x36,0x00,0x00}, // :
{0x00,0x00,0x16,0x00,0x00}}; // .
int led6 [7];
int const bcd[7] = {1,2,4,8,10,20,40}; // bcd code
int const steptab[8] = {0,1,6,2,3,6,4,5}; // hh:mm:ss
int1 running;
int dcf_ms,
dcf_timeline,
dcf_hour,
dcf_min,
dcf_bit,
chget,
s,m,h, // I2c time
y,x,hour,minute;
/*****************************************************************************
* byte decD2hexD( byte value);
*
* Description : Converts the given value Decimal Digits to Hexidecimal
* digits (bcd format, for example: 99D => 99H).
* Arguments : value - to be converted
* Returns : byte - converted value.
*/
byte decD2hexD( byte value)
{
return ( value%10 + 16 * (value/10));
}
/****************************************************************************
* byte hexD2decD( byte value);
*
* Description : Converts the given value Hexadecimal Digits to Decimal
* digits (bcd format, for example: 99H => 99D).
* Arguments : value - to be converted
* Returns : byte - converted value.
*/
byte hexD2decD( byte value)
{
return ( value%16 + 10 * (value/16));
}
void Gettime ()
{
Byte Wm, Yd;
i2c_start(); // generate start
i2c_write(0xA0); // write addres of PCF8583
i2c_write(0x2); // select second register
i2c_start(); // generate repeated start
i2c_write(0xA1); // write address for reading info
S = i2c_read(); // read seconds
M = i2c_read(); // read minuts
H = i2c_read(); // read hours
Yd = i2c_read(); // read year and days
Wm = i2c_read(0); // read weekday and month
i2c_stop(); // generate stop
}
void Settime(byte s,byte M,byte H,byte D, byte Month)
{
i2c_start(); // generate start
i2c_write(0xA0); // write address
i2c_write(0x0); // select control register
i2c_write(0x8); // set year and day bit for masking
i2c_stop(); // generate stop
i2c_start(); // generate start
i2c_write(0xA0); // write mode
i2c_write(0x2); // select seconds Register
i2c_write(S); // write seconds
i2c_write(M); // write minuts
i2c_write(H); // write hours
i2c_write(D); // write days
i2c_write(Month); // write months
i2c_stop();
}
#int_TIMER1 //------------irq----------------------
TIMER1_isr() { // routine elke 0.25uS *8 (ffff-F893=1900) = 3.8mS
if (kbhit()) {
chget = getc();
Gettime ();
output_b(0); // led's uit
Printf("Time: %x:%x:%x 'c' to change time\n\r" ,h,m,s); // door hex notitie te gebruiken gaat BCD code goed
if (chget == 'c') {
printf("\r\nHour: ");
hour = gethex();
printf("\r\nMinute: ");
minute = gethex();
Settime (0,minute,hour,0,0);
}
}
set_timer1(0xFFF0); // rtc waarde 0.25uS*8*256*1900* =0.9728 sec
}
#int_TIMER2 //------------irq----------------------
TIMER2_isr() { // routine elke 0.25uS *div16 *91*16= = 5.8mS }
if (++dcf_ms == 0x00) { // deel door 256 is 1.49S
if (dcf_timeline == 60 ){ // received 61 char code is valid.
Settime (0,decD2hexD(dcf_min),decD2hexD(dcf_hour),0,0);
}
dcf_bit = dcf_hour = dcf_min = dcf_timeline = 0; // overflow; dus einde timeline
}
}
main() {
int16 save_t1,del,over;
int rnd,save_t2;
int1 bitstart;
setup_timer_1(T1_INTERNAL|T1_DIV_BY_8); // T1= Fosc/4
setup_timer_2(T2_DIV_BY_16,0x5B,16);
enable_interrupts(INT_TIMER1);
enable_interrupts(INT_TIMER2);
enable_interrupts(global);
Printf( "Propellor Klok 2.00 DCF support\n\r" );
dcf_timeline = dcf_bit =0;
del= 2100;
bitstart = false;
output_b(0);
do {
if (!input(hal)) {
save_t1 = get_timer1(); // counter: 0.25uS*8= 2uS per tel
set_timer1(0x00);
save_t2 = get_timer2(); // Save counter
disable_interrupts(global);
for (y=0; y<8; y++) { // 8 karakters breed hh:mm:ss
for (x=0; x<5; x++) { // breedte 5 teller
output_b(dt[led6[steptab[y]]]
delay_us(del);
}
if (y==3) led6[6] = 10; // dubble punt terugzetten
output_b(0);
delay_us(del); // 200tussen de karakters
}
set_timer2(save_t2); // Restore counter
enable_interrupts(global);
if (++rnd%16==0) del = ((save_t1-2000) / 180); // counter: 0.25uS*8= 2uS per tel
// een maal in de x ronde wordt nieuwe delay berekend
Gettime ();
led6[0] = hexD2decD(h)/10;
led6[1] = hexD2decD(h)%10;
led6[2] = hexD2decD(m)/10;
led6[3] = hexD2decD(m)%10;
led6[4] = hexD2decD(s)/10;
led6[5] = hexD2decD(s)%10;
if (input(dcf_data)) led6[6] = 11; // is de :
else led6[6] = 10;
}
if (dcf_timeline == 30) dcf_bit = 0; // counter for the hours
if (input(dcf_data)){ // rising bit start timer dcf_ms
if (!bitstart) dcf_ms = 0;
bitstart = true;
}
if (dcf_ms == 42) bitstart = false; // bit cannot exeed 42 (42*5.6mS= 244mS)
if (dcf_ms == 25){ // sample the bit at 145mS
if (++dcf_timeline == (23+dcf_bit)) { // postion 23--29 minutes
if (input(dcf_data))
dcf_min = dcf_min + bcd[dcf_bit]; // increase with BCD array
if (dcf_bit < 6) dcf_bit++;
}
if (dcf_timeline == (31+dcf_bit)) { // postion 31--36 hours
if (input(dcf_data))
dcf_hour = dcf_hour + bcd[dcf_bit];
if (dcf_bit < 5) dcf_bit++;
}
dcf_ms++;
}
} while (TRUE);
}
