HW_ATmega1280.h

// *** Hardwarespecific functions ***
void UTFT::_hw_special_init()
{
}

void UTFT::LCD_Writ_Bus(char VH,char VL, byte mode)
{   
    switch (mode)
    {
    case 1:
        if (display_serial_mode==SERIAL_4PIN)
        {
        if (VH==1)
            sbi(P_SDA, B_SDA);
        else
            cbi(P_SDA, B_SDA);
        pulse_low(P_SCL, B_SCL);
        }
        else
        {
        if (VH==1)
            sbi(P_RS, B_RS);
        else
            cbi(P_RS, B_RS);
        }

        if (VL & 0x80)
            sbi(P_SDA, B_SDA);
        else
            cbi(P_SDA, B_SDA);
        pulse_low(P_SCL, B_SCL);
        if (VL & 0x40)
            sbi(P_SDA, B_SDA);
        else
            cbi(P_SDA, B_SDA);
        pulse_low(P_SCL, B_SCL);
        if (VL & 0x20)
            sbi(P_SDA, B_SDA);
        else
            cbi(P_SDA, B_SDA);
        pulse_low(P_SCL, B_SCL);
        if (VL & 0x10)
            sbi(P_SDA, B_SDA);
        else
            cbi(P_SDA, B_SDA);
        pulse_low(P_SCL, B_SCL);
        if (VL & 0x08)
            sbi(P_SDA, B_SDA);
        else
            cbi(P_SDA, B_SDA);
        pulse_low(P_SCL, B_SCL);
        if (VL & 0x04)
            sbi(P_SDA, B_SDA);
        else
            cbi(P_SDA, B_SDA);
        pulse_low(P_SCL, B_SCL);
        if (VL & 0x02)
            sbi(P_SDA, B_SDA);
        else
            cbi(P_SDA, B_SDA);
        pulse_low(P_SCL, B_SCL);
        if (VL & 0x01)
            sbi(P_SDA, B_SDA);
        else
            cbi(P_SDA, B_SDA);
        pulse_low(P_SCL, B_SCL);
        break;
    case 8:
#if defined(USE_UNO_SHIELD_ON_MEGA)
        PORTG &= ~0x20;
        PORTG |= (VH & 0x10)<<1;
        PORTH &= ~0x18;
        PORTH |= (VH & 0xC0)>>3;
        PORTE &= ~0x3B;
        PORTE |= (VH & 0x03) + ((VH & 0x0C)<<2) + ((VH & 0x20)>>2);
        pulse_low(P_WR, B_WR);
        PORTG &= ~0x20;
        PORTG |= (VL & 0x10)<<1;
        PORTH &= ~0x18;
        PORTH |= (VL & 0xC0)>>3;
        PORTE &= ~0x3B;
        PORTE |= (VL & 0x03) + ((VL & 0x0C)<<2) + ((VL & 0x20)>>2);
        pulse_low(P_WR, B_WR);
#else
        PORTA = VH;
        pulse_low(P_WR, B_WR);
        PORTA = VL;
        pulse_low(P_WR, B_WR);
#endif
        break;
    case 16:
        PORTA = VH;
        PORTC = VL;
        pulse_low(P_WR, B_WR);
        break;
    case LATCHED_16:
        PORTG &= ~0x20; 
        PORTG |= (VH & 0x10)<<1;    
        PORTH &= ~0x18; 
        PORTH |= (VH & 0xC0)>>3;    
        PORTE &= ~0x3B; 
        PORTE |= (VH & 0x03) + ((VH & 0x0C)<<2) + ((VH & 0x20)>>2);
        cbi(P_ALE, B_ALE);
        pulse_high(P_ALE, B_ALE);
        cbi(P_CS, B_CS);
        PORTG &= ~0x20; 
        PORTG |= (VL & 0x10)<<1;    
        PORTH &= ~0x18; 
        PORTH |= (VL & 0xC0)>>3;    
        PORTE &= ~0x3B; 
        PORTE |= (VL & 0x03) + ((VL & 0x0C)<<2) + ((VL & 0x20)>>2);
        pulse_low(P_WR, B_WR);
        sbi(P_CS, B_CS);
        break;
    }
}

void UTFT::_set_direction_registers(byte mode)
{
#if defined(USE_UNO_SHIELD_ON_MEGA)
    DDRH = 0x18;
    DDRG = 0x20;
    DDRE = 0x3B;
#else
    if (mode!=LATCHED_16)
    {
        DDRA = 0xFF;
        if (mode==16)
            DDRC = 0xFF;
    }
    else
    {
        DDRH = 0x18;
        DDRG = 0x20;
        DDRE = 0x3B;
    }
#endif
}

void UTFT::_fast_fill_16(int ch, int cl, long pix)
{
#if defined(USE_UNO_SHIELD_ON_MEGA)
    if (ch==cl)
        _fast_fill_8(ch, pix);
    else
    {
        for (int i=0; i<pix; i++)
        {
            PORTG &= ~0x20;
            PORTG |= (ch & 0x10)<<1;
            PORTH &= ~0x18;
            PORTH |= (ch & 0xC0)>>3;
            PORTE &= ~0x3B;
            PORTE |= (ch & 0x03) + ((ch & 0x0C)<<2) + ((ch & 0x20)>>2);
            pulse_low(P_WR, B_WR);
            PORTG &= ~0x20;
            PORTG |= (cl & 0x10)<<1;
            PORTH &= ~0x18;
            PORTH |= (cl & 0xC0)>>3;
            PORTE &= ~0x3B;
            PORTE |= (cl & 0x03) + ((cl & 0x0C)<<2) + ((cl & 0x20)>>2);
            pulse_low(P_WR, B_WR);
        }
    }
#else
    long blocks;

    PORTA = ch;
    PORTC = cl;

    blocks = pix/16;
    for (int i=0; i<blocks; i++)
    {
        pulse_low(P_WR, B_WR);
        pulse_low(P_WR, B_WR);
        pulse_low(P_WR, B_WR);
        pulse_low(P_WR, B_WR);
        pulse_low(P_WR, B_WR);
        pulse_low(P_WR, B_WR);
        pulse_low(P_WR, B_WR);
        pulse_low(P_WR, B_WR);
        pulse_low(P_WR, B_WR);
        pulse_low(P_WR, B_WR);
        pulse_low(P_WR, B_WR);
        pulse_low(P_WR, B_WR);
        pulse_low(P_WR, B_WR);
        pulse_low(P_WR, B_WR);
        pulse_low(P_WR, B_WR);
        pulse_low(P_WR, B_WR);
    }
    if ((pix % 16) != 0)
        for (int i=0; i<(pix % 16)+1; i++)
        {
            pulse_low(P_WR, B_WR);
        }
#endif
}

void UTFT::_fast_fill_8(int ch, long pix)
{
    long blocks;

#if defined(USE_UNO_SHIELD_ON_MEGA)
    PORTG &= ~0x20;
    PORTG |= (ch & 0x10)<<1;
    PORTH &= ~0x18;
    PORTH |= (ch & 0xC0)>>3;
    PORTE &= ~0x3B;
    PORTE |= (ch & 0x03) + ((ch & 0x0C)<<2) + ((ch & 0x20)>>2);
#else
    PORTA = ch;
#endif

    blocks = pix/16;
    for (int i=0; i<blocks; i++)
    {
        pulse_low(P_WR, B_WR);pulse_low(P_WR, B_WR);
        pulse_low(P_WR, B_WR);pulse_low(P_WR, B_WR);
        pulse_low(P_WR, B_WR);pulse_low(P_WR, B_WR);
        pulse_low(P_WR, B_WR);pulse_low(P_WR, B_WR);
        pulse_low(P_WR, B_WR);pulse_low(P_WR, B_WR);
        pulse_low(P_WR, B_WR);pulse_low(P_WR, B_WR);
        pulse_low(P_WR, B_WR);pulse_low(P_WR, B_WR);
        pulse_low(P_WR, B_WR);pulse_low(P_WR, B_WR);
        pulse_low(P_WR, B_WR);pulse_low(P_WR, B_WR);
        pulse_low(P_WR, B_WR);pulse_low(P_WR, B_WR);
        pulse_low(P_WR, B_WR);pulse_low(P_WR, B_WR);
        pulse_low(P_WR, B_WR);pulse_low(P_WR, B_WR);
        pulse_low(P_WR, B_WR);pulse_low(P_WR, B_WR);
        pulse_low(P_WR, B_WR);pulse_low(P_WR, B_WR);
        pulse_low(P_WR, B_WR);pulse_low(P_WR, B_WR);
        pulse_low(P_WR, B_WR);pulse_low(P_WR, B_WR);
    }
    if ((pix % 16) != 0)
        for (int i=0; i<(pix % 16)+1; i++)
        {
            pulse_low(P_WR, B_WR);pulse_low(P_WR, B_WR);
        }
}