#define F_CPU 16000000UL
#include <avr/io.h>
#include <avr/interrupt.h>
#include <util/delay.h>

void init_display();
void init_keypad();
void init_timer0();
uint8_t getkey(uint8_t*);

volatile uint8_t lcdptr=0, lcdcmd=0xC0, lcdoff=0;  // 
volatile uint8_t buffcnt=0, buffstart=0, buffend=0, kbdbuff[4]; 
unsigned char LCDline[32]={"Keypad INT                      "};
//                          0123456789ABCDEF0123456789ABCDEF
const char LookUp[16] ={"0123456789ABCDEF"};

int main(void)
{   
    uint8_t kbdcnt=0, kbddata;
    
    init_display();
    init_keypad();
    init_timer0();  // initialize timer0
    
    sei();  // enable global interrupts
    // loop forever
    while(1)
    {
        if(getkey(&kbddata)) {
            LCDline[kbdcnt+16] = kbddata;
            kbdcnt = (kbdcnt+1) & 0x0F;
            LCDline[kbdcnt+16] = ' ';
        }
        LCDline[13]= (PINE&0x01) + '0';
        while((PINE&0x01)==0);	// block execution
    } // while(1)
}

void init_display()
{
    DDRA = 0xFF;
    
    PORTC &= 0xAF;
    DDRC  |= 0x50;
    
    PORTC &= 0xBF;

    PORTA = 0x38;
    PORTC |= 0x10;
    PORTC &= 0xEF;
    PORTA = 0x0C;
    PORTC |= 0x10;
    PORTC &= 0xEF;
    PORTA = 0x01;
    PORTC |= 0x10;;
    PORTC &= 0xEF;  
    _delay_ms(2);
}

void init_keypad()
{
    EICRB |= (1<<ISC71)|(1<<ISC70); // INT7 on rising edge
    EIMSK |= (1<<INT7);             // enable INT7 - PORTE<7>
}

void init_timer0()
{
    TCCR0B |= (1<<CS02)|(1<<CS00);	// prescaler 1024
    TCNT0 = 0;			            // initialize counter
    TIMSK0 |= (1 << TOIE0);	        // enable overflow interrupt 
}

uint8_t getkey(uint8_t* key) {
    if(buffcnt!=0) {
        *key = kbdbuff[buffend];
        buffcnt--;
        buffend = (buffend+1)&0x03;
        return(1);
    }
    else {
        return(0);
    }
}

ISR(INT7_vect)
{
    if(buffcnt<4) {
        buffcnt++;
        kbdbuff[buffstart] = LookUp[PINB&0x0F];
        buffstart = (buffstart+1)&0x03;
    }
}

ISR(TIMER0_OVF_vect)
{
    if(lcdptr==16) {
        PORTC &= 0xBF;
        PORTA = lcdcmd;
        lcdptr = 0;
        lcdcmd ^= 0x40;
        lcdoff ^= 0x10;        
    }
    else {
        PORTC |= 0x40;
        PORTA = LCDline[lcdoff+lcdptr];
        PORTC |= 0x10;
        lcdptr++;
    }
    PORTC |= 0x10;
    PORTC &= 0xEF;
    LCDline[15] = buffcnt + '0';
}