#include <reg515.sfr>
#include <lcd.h>

int kom;
int kom_id;
int kier;
int limp, freq;

int main()
{
    int i;
    int j=0;
    char k;
    int l = 0;
    kom=0;
    kom_id=0; //0 - 1/4; 1 - 1/2
    kier = 0;
    freq = 14;


    T2CON = 0x11;
    IEN0 = 0xA0;

    lcd_init();
    out_instr(0x1);

    out_char('1');
    out_char('4');
    out_instr(0xC0);

    while(1)
    {
        k = get_kb();

        if(k == 'b')
            break;

        if(k == 'e') {
            out_instr(0x1);
            if(l >= 14 || l <= 400) {
                freq = l;
                limp = 1000000/freq;
                CRCH = 65536 - limp;
                CRCH >> 8;

                CRCL = 65536 - limp;
            }
            l = 0;
            while(k!='\0') k = get_kb();
            for(i = 0; i < 30000; i++);
            continue;
        }

        if(k=='g') {
            if(kom_id < 2) kom_id++;
            while(k!='\0') k = get_kb();
            for(i = 0; i < 30000; i++);
        }

        if(k=='d') {
            if(kom_id > 0) kom_id--;
            while(k!='\0') k = get_kb();
            for(i = 0; i < 30000; i++);
        }

        if(k=='l') {
            kier = 1;
            while(k!='\0') k = get_kb();
            for(i = 0; i < 30000; i++);
        }

        if(k=='r') {
            kier = 0;
            while(k!='\0') k = get_kb();
            for(i = 0; i < 30000; i++);
        }

        if(k!='\0' && k!='e' && k!='b' && k!='g' && k!='l' && k!='p' && k!='d')
        {
            l = l*10 + (k-48);
            out_char(k);
            while(k!='\0') k = get_kb();
            for(i = 0; i < 30000; i++);
        }
    }

    out_instr(0x1);
    out_char('s');
    out_char('t');
    out_char('o');
    out_char('p');
    return 0;
}

_interrupt 5 void int_T2(void)
{
    int t14[8];
    int t12[8];
    int t38[8];

    TF2 = 0;

    t14[0] = 8;
    t14[1] = 2;
    t14[2] = 4;
    t14[3] = 1;
    t14[4] = 8;
    t14[5] = 2;
    t14[6] = 4;
    t14[7] = 1;

    t12[0] = 9;
    t12[1] = 10;
    t12[2] = 6;
    t12[3] = 5;
    t12[4] = 9;
    t12[5] = 10;
    t12[6] = 6;
    t12[7] = 5;

    t38[0] = 8;
    t38[1] = 10;
    t38[2] = 2;
    t38[3] = 6;
    t38[4] = 4;
    t38[5] = 5;
    t38[6] = 1;
    t38[7] = 9;


    switch(kom_id)
    {
        case 0:
            P1 = t14[kom];
            break;
        case 1:
            P1 = t12[kom];
            break;
        case 2:
            P1 = t38[kom];
            break;
    }

    if(!kier) {
        kom++;
        if(kom == 8) kom = 0;
    }
    else
    {
        kom--;
        if(kom == -1) kom = 7;
    }
}