!lds r26, {i}                         ; Загружаем индекс элемента массива
   !clr r27                                ;
   !lds r30, {Sun}                    ; Загружаем младший байт адреса начала массива
   !lds r31, {Sun+1}                ; Загружаем старший байт адреса начала массива
   !add r30, r26                       ; Добавляем индекс элемента массива
   !adc r31, r27
   !lpm r17, Z                          ; Загружаем значение элемента массива в регистр R17
   !out TCNT0, r17

Dim Bright(12) As Byte                                      ' Массив из 12 байт
Dim P_br As Word                                             ' Переменная для хранения адреса  начала массива в SRAM 
P_br = Varptr(bright(1))                                    ' P_br теперь содержит адрес массива в SRAM (если опция BASE = 1, если BASE = 0, то брать нулевой индекс)
Print "DEC = " ; P_br ; "   HEX = " ; Hex(p_br)    ' Выводим адрес в терминал

Dim I As Byte
Dim J As Byte
Dim K As Byte
Dim M As Byte

   'Заполняем массив значениями
   For I = 1 To 12
      J = I + 50
      Bright(i) = J
   Next I


   'Получаем элементы массива 
   For I = 1 To 12
      !lds r30, {i}                    ; Загружаем индекс i
      !dec r30                         ; Декремент индекса
      !clr r31                           ; Очищаем регистр
      !lds r26, {P_br}              ; Загружаем младший байт адреса P_br
      !lds r27, {P_br + 1}        ; Загружаем старший байт адреса P_br
      !add r26, r30                  ; Добавляем индекс i
      !adc r27, r31                  ;
      !ld r16, X                       ; Получаем значение из массива

      !sts {j} , R30
      !sts {k} , R31
      !sts {m} , R16

      Print I ; " : " ; J ; " : " ; K ; " : " ; M
   Next I