Миландр

#include <1886VE5.h>
#include "int17xxx.h"
#pragma origin 0x8

interrupt iServer(void)
{
    multi_interrupt_entry_and_save

PERIPHERAL_service:
TMR0_service:
    // save on demand: PRODL,PRODH,TBLPTRH,TBLPTRL,FSR0,FSR1
    /* process Timer 0 interrupt */
    // T0IF is automatically cleared when the CPU vectors to 0x10
    // restore on demand: PRODL,PRODH,TBLPTRH,TBLPTRL,FSR0,FSR1
T0CKI_service:
INT_service:
    interrupt_exit_and_restore
}

//Функции вывода
...

void read_program_memory(uns16 address, uns8 *low, uns8 *high)
{
    TBLPTR = address;
    readLU();         //TABLRD 0,0,DUMMY
   
    *low = readL();   //TLRD 0,(*low)
    *high = readH();  //TLRD 1,(*high)
}

void write_program_memory(uns16 address, uns8 low, uns8 high)
{
    TBLPTR = address;
   
    writeL(low);      //TLWT 0,low
    writeHU(high);    //TABLWT 1,0,high
   
    T0IF = 0;
}

void main(void)
{   
    //Таймер 0
    T0CS = 1; //Внутрення тактовая частота
    T0PS0 = 0; T0PS1 = 1; T0PS2 = 1; T0PS3 = 0; //Делитель на 64
    //16e6 / 4 / 64 / 0xFFFF ~ 0.95 Гц, T ~ 1 секунда >> 5 миллисекунд
   
    //UART
    ...
   
    //EEPROM
    EE_DIV = 255; //выставлен максимум,
    //достаточно 5e-3 / 906 * 16e6 ~ 88.30 ~ 89
   
    //Прерывание от таймера 0 включено,
    //используется для прекращения процедуры "долгой записи"
    T0IE = 1;
   
    uns8 low = 0xFF;
    uns8 high = 0xFF;
    print_string("Write 0xFFFF\n");
    write_program_memory(0x100, low, high);
   
    print_string("Read  0x");
    read_program_memory(0x100, &low, &high);
    print_num_hex(high);
    print_num_hex(low);
    print_char('\n');

    while (1) {}
}

Write 0xFFFF                                                                   
Read  0x0000

void erase_sector(char high)
{   
    TBLPTR = 0;
    if (high)
    {
        EECONH = 0x08; //EEBL = 1
    }
    else
    {
        EECONL = 0x08; //EEBH = 1
    }
   
    start_timer();  //Timer0 16 ms
    writeL(0);      //TLWT 0,0
    writeHU(0);     //TABLWT 1,0,0
}

void erase_string(uns16 address)
{
    TBLPTR = address;
    if (address >= 2048)
    {
        EECONH = 0x04; //EERL = 1
    }
    else
    {
        EECONL = 0x04; //EERH = 1
    }
   
    start_timer();  //Timer0 16 ms
    writeL(0);      //TLWT 0,0
    writeHU(0);     //TABLWT 1,0,0
}