rfid.c

#define VERSION "* V 0.00 "

#define F_CPU 1000000

//usage 24c256

#define EEBLOCKL    8

#define KEYPOS     8

#define KEYCOUNT   64

#define LOGPOS      KEYPOS+KEYCOUNT*EEBLOCKL

#define LOGCOUNT    4000

//usage pcf8583

#define LOGPPOS    32  

#define RESTIMEPOS  16

#define ST_NONE    0

#define ST_RESET    1

#define ST_OFF    2

#define ST_ACCEPT    3

#define ST_DENY    4

#define ST_NEW    5

#define ST_DELETE    6

#define RF_4xx2   0

#define RF_4xx5      1

#define RF_SCAN      2

#define CSE_ROM    0xA0

#define CSA_ROM    0xA1

#define CSE_CLOCK  0xA2

#define CSA_CLOCK  0xA3

#define SDA1  PORTC|=_BV(4) 

#define SDA0  PORTC&=~_BV(4) 

#define SDAi  DDRC&=~_BV(4) 

#define SDAo  DDRC|=_BV(4) 

#define SDAq  (PINC&_BV(4))

#define SCL1  PORTC|=_BV(5) 

#define SCL0  PORTC&=~_BV(5) 

#define SCLi  DDRC&=~_BV(5) 

#define SCLo  DDRC|=_BV(5) 

#define HTRC_PIN    PIND

#define HRTC_MASK  _BV(2)  

#define HTRC_CLK1  PORTD|=_BV(3) 

#define HTRC_CLK0  PORTD&=~_BV(3) 

#define HTRC_CLKi  DDRD&=~_BV(3) 

#define HTRC_CLKo  DDRD|=_BV(3) 

#define HTRC_DI1  PORTD|=_BV(4) 

#define HTRC_DI0  PORTD&=~_BV(4) 

#define HTRC_DIi  DDRD&=~_BV(4) 

#define HTRC_DIo  DDRD|=_BV(4) 

#define HTRC_DO1  PORTD|=_BV(2) 

#define HTRC_DO0  PORTD&=~_BV(2) 

#define HTRC_DOi  DDRD&=~_BV(2) 

#define HTRC_DOo  DDRD|=_BV(2) 

#define HTRC_DOq  (PIND&_BV(2))

#define LED1  PORTC|=_BV(0) 

#define LED0  PORTC&=~_BV(0) 

#define LEDi  DDRC&=~_BV(0) 

#define LEDo  DDRC|=_BV(0) 

#define REL1  PORTB|=_BV(0) 

#define REL0  PORTB&=~_BV(0) 

#define RELi  DDRB&=~_BV(0) 

#define RELo  DDRB|=_BV(0) 

#define BEEP1  PORTB|=_BV(1) 

#define BEEP0  PORTB&=~_BV(1) 

#define BEEPi  DDRB&=~_BV(1) 

#define BEEPo  DDRB|=_BV(1) 

#include <avr/io.h> 

#include <avr/interrupt.h>

#include <avr/sleep.h>

#include <avr/pgmspace.h>

#include <avr/eeprom.h>

#include <stdlib.h>

#include <string.h>

#include <util/crc16.h>

#include <util/delay.h>

#include <avr/boot.h>

#include <stdint.h>   

#include <avr/wdt.h> 

/*global time/status*/

unsigned char tm[8];

volatile unsigned char failtimeout,tcheck,pulsw,d_bit,d_ready,ttime,rtime,btime;

unsigned PROGMEM char parity[]={1,0,0,1,0,1,1,0, 0,1,1,0,1,0,0,1, 0,1,1,0,1,0,0,1,             1,0,0,1,0,1,1,0};

void dolog();

void readtime();

void htrc_init();

unsigned char puttm();

SIGNAL(SIG_OVERFLOW0)

{

    TCNT0=150;

    d_bit=0;d_ready=1;

}          

unsigned char rfmode=0;

unsigned char distime;

SIGNAL(SIG_OVERFLOW2)

{

static unsigned char prescale=0;

  rtime++;     //htrc-recivetimer

  tcheck++;  //watchdog controltimer

  btime++;  //timer for relay and timer

  prescale++;

  if(prescale>29)

  {

    prescale=0;

    ttime++;             //timout for terminalinputs

    distime++;            //periodic show date and time

    if(failtimeout)failtimeout--;  //dont fill the logfile with wrong tags  

  }

}     

SIGNAL(SIG_INTERRUPT0)

{

  static unsigned char nd,isd;

  unsigned char port;

  pulsw=TCNT0;

  if(rfmode==RF_4xx5)

  {

    if(pulsw>25)

    {

      TCNT0=0;

      d_bit=nd;

      nd=1;

      d_ready=1;

    } else nd=0;

  } else if (rfmode==RF_4xx2)

  {

    port=HTRC_PIN;

    if(pulsw>45)

    {

      isd=0;

      TCNT0=0;

    }

    if(isd)isd=0;else

    {

      isd=1;

      if(port&HRTC_MASK)d_bit=1;else d_bit=0;

      d_ready=1;

    }

  } else

  {

      TCNT0=0;

      d_ready=1;

  }

}

void do_wd()

{

  static unsigned char ltcheck;

  unsigned char c; 

  {

    c=tcheck-ltcheck;

    if(ltcheck!=tcheck)

    {

      ltcheck=tcheck;

       wdt_reset();

    }

  }

}

unsigned char htrc_getbit()

{

  while(d_ready==0)do_wd();

  d_ready=0;

  return d_bit;

}

void iic_delay()

{

    asm("nop");

    asm("nop");

    asm("nop");

    asm("nop");

}

void inline sda_hi(void)

{

  SDAi;

  SDA1;

  iic_delay();

}

void inline sda_lo(void)

{

   SDA0;

   SDAo;

  iic_delay();

}

unsigned inline char sda_get(void)

{

    return SDAq;

}

void inline scl_hi(void)

{

    SCL1;

  iic_delay();

}

void inline scl_lo(void)

{

  SCLo;

  SCL0;

  iic_delay();

}

void iic_start(void)

{

    scl_hi();

    sda_lo();

}

void iic_stop(void)

{

    sda_lo();

    scl_hi();

    sda_hi();

}

unsigned char writeok;

void iic_putc(unsigned char c)

{

    unsigned char co;   

    for(co=0;co<8;co++)

    {

        scl_lo();

        if(c&128)sda_hi(); else sda_lo();

        c<<=1;

        scl_hi();

    }

    scl_lo();

    sda_hi();

    writeok=!sda_get();

    scl_hi();

    scl_lo();

}

unsigned char iic_getc(unsigned char last)

{

    unsigned char co,res=0;

    for(co=0;co<8;co++)

    {

        res=res<<1;

        if(sda_get())res++;

        scl_hi();

        scl_lo();

    }

    if(last)sda_hi(); else sda_lo();

    scl_hi();

    scl_lo();

    sda_hi();

    return res;

}

void iic_eeprom_put_mem(unsigned int d,unsigned char *s, unsigned char l)

{

  unsigned char co;

  iic_start();

  iic_putc(CSE_ROM);

  iic_putc(d>>8);

  iic_putc(d&255);

  for(co=0;co<l;co++) iic_putc(*s++);

  iic_stop();  

  _delay_ms(10);

}

void iic_eeprom_get_mem(unsigned char *d,unsigned int s, unsigned char l)

{

  unsigned char co;

  iic_start();

  iic_putc(CSE_ROM);

  iic_putc(s>>8);

  iic_putc(s&255);

  iic_start();

  iic_putc(CSA_ROM);

  for(co=0;co<l;co++)

  {

     *(d++)=iic_getc((co==(l-1))?1:0);

  }

  iic_stop();  

}

/*

iic_eeprom_erase()

{

  unsigned int co;

  unsigned char c[32];

  memset(c,255,32);

  for(co=0;co<32768;co+=32)iic_eeprom_put_mem(co,c,32);

}

*/

void putch(unsigned char c)

{

        UCSRA|=(1<<TXC);

        UDR=c;

        while((UCSRA&(1<<TXC))==0);

}

unsigned char getch()

{

    unsigned char c;

        c=UDR;

        UCSRA|=(1<<RXC);

        return c;

}

unsigned char havech()

{

  do_wd();

    if(UCSRA&(1<<RXC))ttime=0;

    return UCSRA&(1<<RXC);

}     

unsigned int gethch()

{

    unsigned char c,o;

  while(havech()==0)if(ttime>20)return -1;

  c=getch();c-=48;if(c>9)c-=7; if(c>15) return -1;

  o=c;

  while(havech()==0)if(ttime>20)return -1;

  c=getch();c-=48;if(c>9)c-=7; if(c>15) return -1;

  o=o*16+c;

    return o;

}

void putstr(char *c )

{

    while (*c)

    {

        putch(*c);

        c++;

    }

}  

void putdch(unsigned char c)

{

  unsigned char cc;

  cc=c/10;

  putch(cc+48);

  cc=c%10;

  putch(cc+48);

}

void puthch(unsigned char c)

{

  unsigned char cc;

  cc=c/16;if (cc>9)cc+=7;

  putch(cc+48);

  cc=c%16;if (cc>9)cc+=7;

  putch(cc+48);

}

void putms(const char *c )

{

  do_wd();

    while (pgm_read_byte(c))

    {

        putch(pgm_read_byte(c));

        c++;

    }

}  

unsigned char  wtast()

{

  putms(PSTR("[space]")); 

   while(havech()==0&&(ttime<20));

  if(havech())return getch();  

  return 255;     

}

unsigned char wgetch()

{

   while(havech()==0&&(ttime<2));

  return getch();       

}

unsigned char spu[25]; // max linelength +5 char for appends

unsigned char getstr()

{

  unsigned char co=0,c;

  while (1)

  {

    if(ttime>20)return 0;

    if(havech())

    {

      c=getch();

      if(c==27)return 0;

      if(c==13){spu[co]=0;return co;}

      if(c==10){spu[co]=0;return co;}

      if(c==8){if(co>0)co--;else c=7;} else if((c>127)||(c<32))c=7;

      if(co>18)c=7;

      if(c>31)spu[co++]=c;

      putch(c);

    }

  }

}

/* buffer to read the tag */

unsigned char res[12];

unsigned char tres[12];

/* buffer to calculate 4xx5 serialnumber */

unsigned char mpu[6];

/* calculate 4xx5 serialnumber */

unsigned char brev(unsigned char c)

{

  unsigned char o;

  o=0;

  if(c&1)o|=128;

  if(c&2)o|=64;

  if(c&4)o|=32;

  if(c&8)o|=16;

  if(c&16)o|=8;

  if(c&32)o|=4;

  if(c&64)o|=2;

  if(c&128)o|=1;

  return o;

}

void  slmpu()

{

  unsigned char co;

                                                                                    for(co=5;co>0;co--)

    {

        mpu[co]<<=1;if(mpu[co-1]&128)mpu[co]++;

    }

    mpu[0]<<=1;       

}

void ppu()

{

  unsigned char cc,co,e,re[16];

  unsigned int i;

  mpu[0]=brev(res[0]);

  mpu[1]=brev(res[1]);

  mpu[2]=brev(res[2]);

  mpu[3]=brev(res[3]);

  mpu[4]=brev(res[4]&(255-7));

  i=brev(res[5]);

  i=4*i+(brev(res[4])/64&3);

  for(cc=0;cc<15;cc++)

  {

    mpu[5]=0;

    for(co=0;co<40;co++)

    {

      slmpu();

      e=0;

      if(mpu[5]>9)

      {  

        mpu[5]-=10;

        e=1;

      }

      if(e)mpu[0]++;

    }

    re[14-cc]=mpu[5]+48;

  }

  putch(32);

  putch((i/100)+48);

  putch((i/10)%10+48);

  putch(i%10+48);

  re[15]=0;

  if(re[0]!=48)putch('!');

  if(re[1]!=48)putch('!');

  if(re[2]!=48)putch('!');

  putstr((char *)re+3);

}

unsigned char readcount=0;

unsigned char readrfid()

{

  unsigned char co,cc,rpa,ch;

  unsigned int crc,tmp;

/* Scan the datarate toi select RF_4xx2 or RF_4xx5 */

  rfmode=RF_SCAN;

  for(co=0;co<sizeof(tres);co++)tres[co]=0x00;

  for(tmp=0,co=0;co<20;co++)

  {  

    htrc_getbit();

    tmp+=pulsw;

  }

  if(tmp>0x200)rfmode=RF_4xx2; else rfmode=RF_4xx5;

/* its a RF_4xx5 */

  if(rfmode)

  {

    rtime=0;

    for(co=0;co<12;co++)

    {

      if(co!=11)

      {

        if(htrc_getbit())co=0;

      } else

      {

        if(htrc_getbit()==0)co=0;

      }

      if(rtime>10)

      {

        return 0;

      }

    }

    LED0;

    for(rpa=0,cc=0;cc<10;cc++)

    {

      for(co=0,ch=0;co<8;co++)

      {

        ch=ch+ch+htrc_getbit();

      }

      if(htrc_getbit()==0)

      {

        cc=100;

        continue;

      }

      else

      {

        tres[cc]=ch;

      }

    }

    LED1;

    if(cc>64)

    {

      return 0;

    }  

    for(crc=0,cc=0;cc<10;cc++)

    {

      crc=_crc_ccitt_update(crc,brev(tres[cc]));

    }

    if(crc)

    {

      return 0;

    }  

    readcount=99;

    memcpy(res,tres,sizeof(res));

    return 1;

  }else

/* its a RF_4xx2 */

  {

    rtime=0;

    for(co=0;co<10;co++)

    {

      if(htrc_getbit()==0)co=0;

      if(rtime>10)

      {

        return 0;

      }

    }

    LED0;

    for(rpa=0,cc=0;cc<10;cc++)

    {

      for(co=0,ch=0;co<5;co++)

      {

        ch=ch+ch+htrc_getbit();

      }

      rpa^=ch;

      if( pgm_read_byte(&parity[ch])==0)

      {

        cc=100;

        continue;

      }

      else

      {

        ch/=2;

        if(cc&1)tres[cc/2]+=ch;else tres[cc/2]=ch*16;

      }

    }

    LED1;

    if(cc>64)

    {

      return 0;

    }  

    for(co=0,ch=0;co<4;co++)

    {

      ch=ch+ch+htrc_getbit();

    }

    if(ch!=rpa/2)return 0;

    if(memcmp(res,tres,sizeof(res))==0)readcount++; else readcount=1;

    memcpy(res,tres,sizeof(res));

    return 1;

  }

}

/* store tag in eeprom */

void wtag(co)

{

  unsigned char tp[1];

  if(co==255)

    for(co=0;co<(KEYCOUNT-1);co++)

       {

      iic_eeprom_get_mem(tp,co*8+KEYPOS,1);

          if(tp[0]==255)break;

      }

  iic_eeprom_put_mem(co*8+KEYPOS,res,8);

    tm[0]=254;  

    memcpy(tm+1,res,5);

   dolog();

    readtime();

    tm[5]=ST_NEW;

  tm[6]=co;

    dolog();

}

/* find tag in eeprom */

unsigned char ftag()

{

  unsigned char co,tp[8];

  for(co=0;co<KEYCOUNT;co++)

  {

    do_wd();   

    iic_eeprom_get_mem(tp,co*8+KEYPOS,8); 

    if(memcmp(tp,res,5)==0)return co;   

  }

  return 255;

}

void import()

{

    unsigned char to,p,ci,co,tp[8];

  unsigned int c;

  to=20;

    putms(PSTR("Daten senden !"));

  while(ttime<to)

  {

    if(wgetch()!='!')continue;

    if(wgetch()!='*')continue;

    to=2;

      c=gethch(); if(c<0)continue;

    ci=p=c;

    for(co=0;co<8;co++)

      {

      c=gethch(); if(c<0)continue;

      tp[co]=c;

      p+=p+((p&128)?1:0);

      p^=c;

    }

            puthch(ci);

    if(p==gethch()&&co<KEYCOUNT)

    {

      putch(19);

      iic_eeprom_put_mem(ci*8+KEYPOS,tp,8); 

      putch(17);

         putms(PSTR("*"));

    } else putms(PSTR("fail\n\r"));

  }

  wtast();

}

void export()

{

    unsigned char p,ci,co,tp[8];

    putms(PSTR("***"));

    for(co=0;co<KEYCOUNT;co++)

    {

    do_wd();

    iic_eeprom_get_mem(tp,co*8+KEYPOS,8); 

    if(tp[0]!=255)

    {

        putms(PSTR("\n\r!*"));

            puthch(co);p=co;

      for(ci=0;ci<8;ci++)

      {

        puthch(tp[ci]);

        p+=p+((p&128)?1:0);

        p^=tp[ci];

      }

            puthch(p);

      for(ci=0;ci<20;ci++)putch(' ');

        }

    }

    putch(13);

    putch(10);

  wtast();

}

void listtags()

{

    unsigned char fo,c,co,tp[8];

  unsigned char tmp;

     putch(13);

    putch(10);

  for(fo=0,co=0;co<KEYCOUNT;co++)

    {

    do_wd();

    iic_eeprom_get_mem(tp,co*8+KEYPOS,8);

    if(tp[0]!=255)

    {

      fo=1;

            putch(co%8+48);

            putch(32);

            putch(co/10+48);

            putch(co%10+48);

            putch(32);

            puthch(tp[0]);

            puthch(tp[1]);

            puthch(tp[2]);

            puthch(tp[3]);

            puthch(tp[4]);

            putch(32);

            putch(tp[5]);

            putch(tp[6]);

            putch(tp[7]);

             putch(13);

            putch(10);

        }

    if((co%8==7)&&fo)

    {

      fo=0;

      do_wd();

        putms(PSTR("[ENTER] or d[0-7]"));    

      c=getstr();

      if(c==2)

      {

        if(spu[0]=='d'&&spu[1]>47&&spu[1]<56)

        {

          co-=8;

          putms(PSTR("delete"));  

          iic_eeprom_get_mem(tp,tmp*8+KEYPOS,8);

            tm[0]=254;

            memcpy(tm+1,tp,5);

            dolog();

            readtime();

            tm[5]=ST_DELETE;

            tm[6]=tmp;

            dolog();  

          tp[0]=255;

          tmp=co+spu[1]-47;

          iic_eeprom_put_mem(tmp*8+KEYPOS,tp,1);

        }

      }

      putms(PSTR("\n\r"));

    }

    }

}

void settime()

{

  putms(PSTR("Zeit hhmmTTMMY[enter]: "));

  if(getstr()==9)

  {

    iic_start();

    iic_putc(0xa2);

    iic_putc(0x00);

    iic_putc(0x88);

    iic_putc(0x00);

    iic_putc(0x00);

    iic_putc((spu[2]-48)*16+(spu[3]-48));

    iic_putc((spu[0]-48)*16+(spu[1]-48));

    iic_putc((spu[4]-48)*16+(spu[5]-48));

    iic_putc((spu[6]-48)*16+(spu[7]-48)+64*(spu[8]-48));

    iic_stop();

    iic_start();

    iic_putc(0xa2);

    iic_putc(0x00);

    iic_putc(0x08);

    iic_stop();

    putms(PSTR("OK\n\r"));

  }  

}

void newtransponder()

{

  unsigned char c,tok;

    putms(PSTR("\n\rTransponder einlesen "));

  tok=0;

  while(tok==0)

  {   

    while(readrfid())

    {

      tok=1;

      putch(13);

      putch(10);

      puthch(res[0]);

           puthch(res[1]);

              puthch(res[2]);

          puthch(res[3]);

           puthch(res[4]);

         putms(PSTR(" Name or [enter]: "));

    }

  }

  if((c=getstr()))

  {

    strcat((char *)spu,"  "); 

    res[5]=spu[0];

    res[6]=spu[1];

    res[7]=spu[2];

    if(ftag()==255)

    {

      wtag(255);

      putms(PSTR(" stored \n\r"));

    }      

  }  

}

void dolog()

{

  unsigned int logpos;

  iic_start();

  iic_putc(CSE_CLOCK);

  iic_putc(LOGPPOS);

  iic_start();

  iic_putc(CSA_CLOCK);

  logpos=iic_getc(0);

  logpos=(logpos<<8)+iic_getc(1);

  iic_stop();

  logpos--; if(logpos>LOGCOUNT)logpos=LOGCOUNT-1;

    iic_start();

    iic_putc(CSE_CLOCK);

    iic_putc(LOGPPOS);

    iic_putc(logpos>>8);

    iic_putc(logpos&255);

    iic_stop();