Симуляция i2c в кейле Опции

[vesago]

Несколько дней назад на каком-то форуме видел вопрос - как кейлом симулировать i2c. А тут намедни самому понадобилось отладить соответствующий модуль. Скачал с кейла макрос и немного поправил - пользуйтесь кому надо.
Если кто не знает - сохраняем как I2CMemory.ini, подключаем в дебагере. Макрос автоматом запускается. Адрес слейва 0x0A, что соответствует 0x50 без бита операции. Пишет читает в область памяти 0x30000 - 0x300FF - можно открыть в окошке и наблюдать. Вообще макросы - сила дебагера кейла. Для определения времени выполнения кода на www.onembedding.com имеется соответствующий макрос.

Код

// Simulation of I2C Memory (Slave)

MAP 0x30000, 0x300FF READ WRITE      // Map User Memory region

DEFINE int SADR                              // Slave Address

signal void I2CMEMORY (void) {
  unsigned long adr;

  adr = 0x30000;//V:0;
  while (1) {
    wwatch (I2C_OUT);                        // Wait for data from Microcontroller
    while (I2C_OUT == 0x0100) {              // START detected
      wwatch (I2C_OUT);                      // Wait for data from Microcontroller
      if (I2C_OUT > 0xFF) continue;
      if ((I2C_OUT >> 1) != SADR) continue;  // test if Slave is addressed
      I2C_IN = 0xFF00;                       // ACK to Microcontroller
      if (I2C_OUT & 1) {                     // Slave Read
        while (1) {  
          I2C_IN = _RBYTE(adr);              // Read Byte from Memory
          adr++;                             // Increment Address
          wwatch (I2C_OUT);                  // Wait for ACK from Microcontroller
          if (I2C_OUT != 0xFF00) break;
        }
      }
      else {                                 // Slave Write
        wwatch (I2C_OUT);                    // Wait for data from Microcontroller
        if (I2C_OUT > 0xFF) continue;
        adr = (I2C_OUT << 8) | 0x30000;          // Set Memory Address High Byte
        I2C_IN = 0xFF00;                     // ACK to Microcontroller
        wwatch (I2C_OUT);                    // Wait for data from Microcontroller
        if (I2C_OUT > 0xFF) continue;
        adr = I2C_OUT | adr;                 // Set Memory Address Low Byte
        I2C_IN = 0xFF00;                     // ACK to Microcontroller
        while (1) {
          wwatch (I2C_OUT);                  // Wait for data from Microcontroller
          if (I2C_OUT > 0xFF) break;
          _WBYTE (adr, I2C_OUT);             // Store Byte in Memory
          adr++;                             // Increment Address
          I2C_IN = 0xFF00;                   // ACK to Microcontroller
        }
      }
    }
  }
}


SADR = 0x50  // Slave Address
I2CMemory()  // Starting signal function