Как пользоваться EEPROM в MicroPascal ATMEGA32

[skorost5]

Добрый день. Подскажите, как записать информацию в EEPROM ATMEGA32 или ее прочитать.

teemp:= EEAR1 // !!!!!!!!! Только так получается

В описании написано что для этого надо использовать EEPROM_Read,
EEPROM_Write но эти команды не работают. Видимо для этого контроллера.

В описании по микроконтроллеру написано, что у него в EEPROM используются EEAR0 - EEAR9

Но как прочитать или записать не понимаю????


Написал вот такую программу

{*
     MCU:             ATMEGA32
 *}

program LED_Blinking;
var eeAddr : word;
temp, teemp, zz : byte;


  begin
    eeAddr := 2;
    teemp:= EEAR1 // !!!!!!!!! Только так получается

    DDRA := 0xFF;             // Set direction to be output
    DDRB := 0xFF;             // Set direction to be output
    DDRC := 0xFF;             // Set direction to be output
    DDRD := 0xFF;             // Set direction to be output
    zz:=0;

    while TRUE do
      begin
       
        //PORTA := 0xFF;        // Turn ON diodes on PORTA
        Delay_ms(1000);       // 1 second delay

        //PORTA := 0x00;        // Turn OFF diodes on PORTA
        Delay_ms(1000);       // 1 second delay
      end;                    // Endless loop}
  end.

[ForcePoint]

В описании написано что для этого надо использовать EEPROM_Read, EEPROM_Write но эти команды не работают.

Как применяли эти подпрограммы (макросы?) и как именно они не работали?

eeAddr := 2;
teemp:= EEAR1 // !!!!!!!!! Только так получается

Если eeAddr является именем, зарезервированным для обращения в регистрам ввода-вывода EEAR, то Вы просто пишете 2 в эти регистры. А потом - считываете бит EEAR1, который, внезапно, оказывается равен единице.

[Godzilla82]

Не знаю, как в паскале, вот код, приведённый в даташите:

 
void EEPROM_write(unsigned int uiAddress, unsigned char ucData)
{
/* Wait for completion of previous write */
while(EECR & (1‹‹EEWE));
/* Set up address and data registers */
EEAR = uiAddress;
EEDR = ucData;
/* Write logical one to EEMWE */
EECR |= (1‹‹EEMWE);
/* Start eeprom write by setting EEWE */
EECR |= (1‹‹EEWE);
} 

Прерывания на время выполнения функции должны быть запрещены.

[skorost5]

В программе MicroPascal получилось вот так EEAR1_bit:=1; там надо смотреть в описании микроконтроллера там пря табличка на регистры которые можно использовать и как к ним обращаться.

А в описании просто написано, что обычно создается функция для записи и функция для чтения. Но пример довольно размытый указывают. По нему сложно что либо понять к сожелению.

Спасибо всем кто пытался помочь!!!

[Godzilla82]

Немного жаль, когда люди совсем не понимают, и даже не пытаются понять...

[ForcePoint]

Поймёт, наверное. Когда придётся реальные настройки сохранять и считывать.

[DanilinSA]

https://forum.mikroe.com/viewtopic.p...MEGA32#p312732

https://forum.mikroe.com/viewtopic.p...MEGA32#p221883

Там правда на Си. Но переписать на Паскаль - минутное дело.