Copy_iButton.c

/*****************************************************
Chip type               : ATMega8
Program type            : Application
AVR Core Clock frequency: 4,000000 MHz
*****************************************************/

#include <mega8.h>
#include <HD44780.h> 
#include <delay.h>
#include <stdio.h>
#include <crc8.h>
#include "buttons.h"


#define SetBit(y,x)    y |= (1<<x) 
#define ClearBit(y,x)  y &=~(1<<x) 
#define InvertBit(y,x) y ^= (1<<x) 

#define IsBitSet(y, x)   ((y)  & (1 << (x)))
#define IsBitClear(y, x) (~(y) & (1 << (x)))

//----------------------------- Îïðåäåëåíèå ïîäêëþ÷åíèÿ 1-Wire
#define Wire1Bit    1
#define Wire1DDR    DDRC
#define Wire1Port   PORTC
#define Wire1Pin    PINC
//----------------------------- 1-Wire

#define FALSE 0
#define TRUE  1

#define KEY_READ     1
#define KEY_WRITE    2

#define RW1990_1    1
#define RW1990_2    2
#define TM2004      3



void Wire1_WriteBit_1990(unsigned char );
void Wire1_SendByte_1990(unsigned char);

char iB_Presence(void);
void Wire1_WriteBit0(void);
void Wire1_WriteBit1(void);
void Wire1_SendByte(char byte);
char Wire1_ReadByte(void);

/*
{0x01,0x94,0x69,0x64,0x00,0x00,0x00,0x2C};      // default1
{0x01,0x0C,0xF9,0x3E,0x10,0x00,0x00,0x02};      // default2
*/

unsigned char cByte[8]={0x01,0x94,0x69,0x64,0x00,0x00,0x00,0x2C};
volatile char cTick=0, cLed=0; 

char iB_Presence(void);

interrupt [TIM0_OVF] void timer0_ovf_isr(void)
{
    TCNT0 = 0xD9;   //ïåðåçàãðóçêà òàéìåðà
    BUT_Debrief();  //îïðîñ êëàâèàòóðû
    cTick=cTick+1;
    if(cLed++==20)
    {
        cLed=0;
        InvertBit(PORTC,3);
    } 
}


void main(void)
{
unsigned char i, cCRC=0, cKey=0, c1Byte[2]={0,0}, cButtonType=0, cError;
char cStr[10],cTmpByte[8];


PORTB =0x00;
DDRB = 0x00;

PORTC=0x03;                     // Ñâåòîäèîäû íà PORTC 2 3
DDRC=0x03;

BUT_Init();

//TIMER0 initialize - prescale:1024
// desired value: 100Hz
// actual value: 100,160Hz (0,2%)
TCCR0 = 0x00; //stop
TCNT0 = 0xD9; //set count
TCCR0 = 0x05; //start timer

TIMSK = 0x01; //timer interrupt sources
#asm("sei")


lcd_init(1);
lcd_gotoxy(0,0);
lcd_putsf("Ðåæèì ");

while (1)
{
        if(cTick>=20) { cKey=BUT_GetKey(); cTick=0; }
        else          { cKey=0;   }

//-------------------------------------------------------------------------------------------------- Çàïèñü êëþ÷à
        if(cKey==KEY_WRITE)
        {
            cKey=0;

            cButtonType=0;
            
            lcd_gotoxy(0,0);
            lcd_putsf("Çàïèñü");
//--------------------------------- Îïðåäåëåíèå çàãîòîâêè RW1990.1

                iB_Presence();
                Wire1_SendByte(0xD1);
                Wire1_WriteBit1();
                delay_us(16);
                iB_Presence();
                Wire1_SendByte(0xB5);
                c1Byte[0]=Wire1_ReadByte();
                if(c1Byte[0]==0xFE)
                {
                    cButtonType=RW1990_1;
                }

//--------------------------------- Îïðåäåëåíèå çàãîòîâêè RW1990.2
            if( cButtonType==0 )
            {
                iB_Presence();
                Wire1_SendByte(0x1D);
                Wire1_WriteBit1();
                delay_us(16);
                iB_Presence();
                Wire1_SendByte(0x1E);
                c1Byte[0]=Wire1_ReadByte();
                if(c1Byte[0]==0xFE)
                {
                    cButtonType=RW1990_2;
                }
/*
                for(i=0; i<4; i++)
                {
                    iB_Presence();
//                Wire1_SendByte(0x1E);
                    Wire1_SendByte(0xC4);
                    c1Byte[0]=Wire1_ReadByte();
                    if(c1Byte[0]==0xFE)
                    {
                        i=4;
                        cButtonType=RW1990_2;
                    }
                }
*/
            }            

//--------------------------------- Îïðåäåëåíèå çàãîòîâêè TM 2004
            if( cButtonType==0 )
            {
                cButtonType=TM2004;
                if(iB_Presence()==TRUE)         // Åñòü óñòðîéñòâî íà ëèíèè !!!
                {
                    Wire1_SendByte(0x33);       // Îòïðàâêà êîìàíäû ÷òåíèÿ ñåðèéíîãî íîìåðà
                    for(i=0;i<8;i++)
                    {
                        cTmpByte[i]=Wire1_ReadByte();     // ×òåíèå îäíîãî áàéòà èç óñòðîéñòâà
                    }
                    
                    iB_Presence();
                    Wire1_SendByte(0x23);       // Îòïðàâêà êîìàíäû ÷òåíèÿ ñåðèéíîãî íîìåðà
                    for(i=0;i<8;i++)
                    {
                        if(cTmpByte[i]!=Wire1_ReadByte())   cButtonType=0;
                        
                    }
                }
            }
            iB_Presence();
            
//            cButtonType=RW1990;    
//------------------------------------------- Çàïèñü çàãîòîâêè RW1990.1
            if(cButtonType==RW1990_1)
            {
                lcd_putsf(" RW1990.1 ");
                if(iB_Presence()==TRUE)
                {
                    Wire1_SendByte(0xD1);

                    Wire1_WriteBit0();
                    delay_us(16);

//                iB_Presence();
//                Wire1_SendByte(0x1E);
//                c1Byte[1]=Wire1_ReadByte();
                    iB_Presence();
                    Wire1_SendByte(0xD5);
                    for(i=0; i<8; i++)
                    {
                        Wire1_SendByte_1990(~cByte[i]);   // Çàãðóçêà è çàïèñü áàéòà â çàãîòîâêó RW1990.1
                    }
                }
                iB_Presence();
            } //RW1990.1

//------------------------------------------- Çàïèñü çàãîòîâêè RW1990.1
            if(cButtonType==RW1990_2)
            {
                lcd_putsf(" RW1990.2 ");
//                for(i=0; i<4; i++)
//                {
//                    iB_Presence();
//                }
//                Wire1_SendByte(0x1E);
//                c1Byte[0]=Wire1_ReadByte();
//                delay_us(13);
                if(iB_Presence()==TRUE)
                {
                    Wire1_SendByte(0x1D);

                    Wire1_WriteBit1();
                    delay_us(16);

//                iB_Presence();
//                Wire1_SendByte(0x1E);
//                c1Byte[1]=Wire1_ReadByte();
                    iB_Presence();
                    Wire1_SendByte(0xD5);
                    for(i=0; i<8; i++)
                    {
                        Wire1_SendByte_1990(cByte[i]);   // Çàãðóçêà è çàïèñü áàéòà â çàãîòîâêó RW1990.2
                    }
                }
                iB_Presence();
            } //RW1990.2


//------------------------------------------- Çàïèñü çàãîòîâêè TM-2004
            if(cButtonType==TM2004)
            {
                lcd_putsf(" TM2004   ");
                if(iB_Presence()==TRUE)             // Åñòü óñòðîéñòâî íà ëèíèè !!!
                {
                    Wire1_SendByte(0x3C);           // Îòïðàâêà êîìàíäû çàïèñè ñåðèéíîãî íîìåðà
                    Wire1_SendByte(0x00);           // Îòïðàâêà àäðåñà çàïèñè ñòàðøèé ðàçðÿä
                    Wire1_SendByte(0x00);           // Îòïðàâêà àäðåñà çàïèñè ìëàäøèé ðàçðÿä

                    for(i=0; i<8; i++)
                    {
                        Wire1_SendByte(cByte[i]);       // Çàãðóçêà áàéòà äëÿ çàïèñè
                        c1Byte[0]=Wire1_ReadByte();     // ×òåíèå CRC

//--------------------------------------------------------------------------- ïðîãðàììèðóþùèé èìïóëüñ äëÿ ÒÌ 2004
                        delay_us(600);
                        SetBit(Wire1DDR, Wire1Bit);     // Çàïèñü â ïîðò 0
                        delay_us(5);                    // óäåðæèâàåì øèíó â 0 5 ìêñ;
                        ClearBit(Wire1DDR, Wire1Bit);   // Çàïèñü â ïîðò 1
                        delay_ms(50);
//--------------------------------------------------------------------------- ïðîãðàììèðóþùèé èìïóëüñ äëÿ ÒÌ 2004

                        c1Byte[1]=Wire1_ReadByte();     // ×òåíèå çàïèñàííîãî áàéòà
                    }
/*
                    cCRC=0;
                    crc_8(0x3C, &cCRC);
                    crc_8(0x00, &cCRC);
                    crc_8(0x00, &cCRC);
                    crc_8(cByte[0], &cCRC);
*/
                }
/*
                sprintf(cStr, "%2X %2X  (%2X %2X)", cCRC, c1Byte[0], cByte[0], c1Byte[1]);
                lcd_gotoxy(0,0);
                lcd_puts(cStr);
*/
                iB_Presence();
            }   // TM2004

            if(cButtonType==0)
            {
                lcd_gotoxy(8,0);
                lcd_putsf(" Îøèáêà ");
                delay_ms(2500);
            }
            else
            {
                cError=FALSE;
                iB_Presence();
                Wire1_SendByte(0x33);       // Îòïðàâêà êîìàíäû ÷òåíèÿ ñåðèéíîãî íîìåðà
                for(i=0;i<8;i++)
                {
                    if(cByte[i]!=Wire1_ReadByte()) cError=TRUE;    // Ïðîâåðêà çàïèñè
                }

                lcd_gotoxy(0,0);
                if(cError==TRUE)
                {
                    lcd_putsf("Çàïèñü OØÈÁÊÀ    ");
                    delay_ms(2500);
                }
                else
                {
                    lcd_putsf("Çàïèñü OK        ");
                    delay_ms(1500);
                }
                cButtonType=0;
            }
            lcd_gotoxy(0,0);
            lcd_putsf("Ðåæèì            ");
        }
        
//-------------------------------------------------------------------------------------------------- ×òåíèå êëþ÷à
        if(cKey==KEY_READ)
        {
            cKey=0;
            lcd_clear(); 
            lcd_putsf("×òåíèå");
            cCRC=0;

            if(iB_Presence()==TRUE)         // Åñòü óñòðîéñòâî íà ëèíèè !!!
            {
                Wire1_SendByte(0x33);       // Îòïðàâêà êîìàíäû ÷òåíèÿ ñåðèéíîãî íîìåðà
                for(i=0;i<8;i++)
                {
                    cByte[i]=0;
                    cByte[i]=Wire1_ReadByte();     // ×òåíèå îäíîãî áàéòà èç óñòðîéñòâà
                }
                for(i=0;i<8;i++)
                {
                    if(i<7) crc_8(cByte[i], &cCRC);
                    if(cByte[i]>0x0f)   sprintf(cStr, "%2X", cByte[i]);
                    else                sprintf(cStr, "0%1X", cByte[i]);            
                    lcd_gotoxy(i*2,1);
                    lcd_puts(cStr);
                }

                lcd_gotoxy(14,0);
                sprintf(cStr, "%2X ", cCRC);
                lcd_puts(cStr);

                lcd_gotoxy(0,0);
                if(cCRC==cByte[7])
                {
//                    lcd_gotoxy(0,0);
                    lcd_putsf("×òåíèå OK");
                    delay_ms(2500);
                }
                else
                {
//                    lcd_gotoxy(0,0);
                    lcd_putsf("×òåíèå OØÈÁÊÀ CRC");
                    delay_ms(2500);
                }

            }
            else
            {
                lcd_gotoxy(0,0);
                lcd_putsf("×òåíèå ÎØÈÁÊÀ Presence");
                delay_ms(2500);
                lcd_clear();
            }
            lcd_gotoxy(0,0);
            lcd_putsf("Ðåæèì            ");
      }
    };   // while();
}


char iB_Presence()
{
    char i=0, j=0, lPresence=FALSE;
//--------------------------------------- Èíèöèàëèçàöèÿ 1-Wire, Îòïðàâêà ñèãíàëà Presence  â ëèíèþ
    ClearBit(Wire1Port, Wire1Bit);
    delay_us(250);
    SetBit(Wire1DDR, Wire1Bit);     // Çàïèñü â ïîðò 0
    delay_us(500);                  // Óäåðæàíèå ñèãíàëà â òå÷åíèè áîëåå 480 ìèêðîñåêóíä
    ClearBit(Wire1DDR, Wire1Bit);   // Ïîðò â ðåæèì ÷òåíèÿ

    delay_us(60);                   // Îæèäàíèå óñòàíîâêè óðîâíÿ

    for(i=0;i<60;i++)
    {
        delay_us(1);
        if( IsBitClear(Wire1Pin, Wire1Bit) )  // Îïðîñ íàëè÷èÿ 1-Wire íà ëèíèè 
        {
            lPresence=TRUE;
            for(j=0;j<(180-i);j++)
            {
                delay_us(1);
                if( IsBitSet(Wire1Pin, Wire1Bit) )   j=180;   //  Óñòðîéñòâî çàêîí÷èëî ïîñûëêó
            }                                                 // ñèãíàëà Presence â ëèíèþ    
            i=60;
        }
    }
    delay_us(420);                  // Âðåìÿ íà ïîäãîòîâêó iButton
    
    return lPresence;
}


// ------------------------------------------------------------------------
//                     Çàïèñü áèòà â çàãîòîâêó RW1990
// ------------------------------------------------------------------------
void Wire1_WriteBit_1990(unsigned char cBit)
{
    SetBit(Wire1DDR, Wire1Bit);     // Çàïèñü â ïîðò 0
    if(cBit==0)     delay_us(60);
    else            delay_us(10);
    ClearBit(Wire1DDR, Wire1Bit);   // Ïîðò â ðåæèì ÷òåíèÿ

    delay_ms(13);
}



// ------------------------------------------------------------------------
//                     Çàïèñü áàéòà â çàãîòîâêó RW1990
// ------------------------------------------------------------------------
void Wire1_SendByte_1990(unsigned char data)
{
    unsigned char temp;
    unsigned char i;

    for (i = 0; i < 8; i++)         // Îòïðàâêà áèòà â ëèíèþ
    {
        temp = data & 0x01;
        if (temp)
        {
            Wire1_WriteBit_1990(1);
        }
        else
        {
            Wire1_WriteBit_1990(0);
        }
        data >>= 1;

    }
}




//------------------------------------------------------------------------------
//                      ×òåíèå áèòà èç øèíû
//------------------------------------------------------------------------------
unsigned char Wire1_ReadBit()
{
    unsigned char ReadBit=0;

    SetBit(Wire1DDR, Wire1Bit);     // Çàïèñü â ïîðò 0
    delay_us(2);
    ClearBit(Wire1DDR, Wire1Bit);   // Ïîðò â ðåæèì ÷òåíèÿ
    delay_us(14);

// ×òåíèå ëèíèè 1-Wire
    if( IsBitSet(Wire1Pin, Wire1Bit) ) ReadBit=1;    // Â ëèíèè 1
    delay_us(60);
    
    return ReadBit;
}


//------------------------------------------------------------------------------
//                      ×òåíèå áàéòà èç øèíû
//------------------------------------------------------------------------------
unsigned char Wire1_ReadByte()
{
    unsigned char data;
    unsigned char i;

    data = 0x00;

    for (i = 0; i < 8; i++)
    {
        data >>= 1;
        if (Wire1_ReadBit())
        {
            data |= 0x80;
        }
    }
    delay_us(30);
    return data;
}



//------------------------------------------------------------------------------
//                         Çàïèñü â øèíó 1
//------------------------------------------------------------------------------
void Wire1_WriteBit1(void)
{
    SetBit(Wire1DDR, Wire1Bit);       // Çàïèñü â ïîðò 0
    delay_us(1);                      // âûæèäàåì íå ìåíåå ÷åì 1 ìêñ;
    ClearBit(Wire1DDR, Wire1Bit);     // Çàïèñü â ïîðò 1
    delay_us(60);                     // çàäåðæêà îêîí÷àíèÿ òàéìñëîòà;
}
//------------------------------------------------------------------------------


//------------------------------------------------------------------------------
//                         Çàïèñü â øèíó 0
//------------------------------------------------------------------------------
void Wire1_WriteBit0(void)
{
    SetBit(Wire1DDR, Wire1Bit);       // Çàïèñü â ïîðò 0
    delay_us(60);                     // óäåðæèâàåì øèíó â 0 60 ìêñ;
    ClearBit(Wire1DDR, Wire1Bit);     // Çàïèñü â ïîðò 1
    delay_us(1);                      // çàäåðæêà îêîí÷àíèÿ òàéìñëîòà;
}
//------------------------------------------------------------------------------




//------------------------------------------------------------------------------
//                      Ïîñûëêà áàéòà â øèíó
//------------------------------------------------------------------------------
void Wire1_SendByte(char byte)
{
    char count = 0;
    for( count = 0; count < 8; count ++)
    {
       // âûâîä î÷åðåäíîãî áèòà íà÷èíàÿ ñ ìëàäøåãî
       if(byte & 0x01)
         {
           Wire1_WriteBit1();
         }
       else 
         {
           Wire1_WriteBit0();
         }
       byte >>= 1;  //ñäâèãàåì äàííûå âïðàâî
    }
    delay_us(30);
}