$regfile = "8H1K28.DAT"
$crystal = 35000000

$romstart = &H0
$ramsize = 1024
$map
$large

Dim Tst As Xram Byte
Dim Tst2 As Xram Byte
Dim Blnk_idx(8) As Xram Byte
Dim Pix_idx As Byte
Dim Arrp As Word
Dim Byte_val As Byte
Arrp = Varptr(blnk_idx(1))
Pix_idx = 0

Do

   $asm
      mov r0, #{Pix_idx}      ; Адрес переменной Pix_idx
      mov a, @r0              ; Значение Pix_idx
      mov r1, a               ; Сохранить в r1
      mov r0, #{ARRP}         ; Адрес переменной Arrp
      mov dpl, @r0            ; Младший байт адреса массива
      inc r0
      mov dph, @r0            ; Старший байт адреса массива
      add a, dpl              ; Индекс + базовый адрес
      mov dpl, a
      clr a
      addc a, dph             ; Учесть перенос
      mov dph, a
      mov a, r1               ; Значение для записи
      movx @dptr, a
   $end Asm

   Incr Pix_idx

Loop Until Pix_idx = 8

Pix_idx = 0
Do
   $asm
      mov r0, #{Pix_idx}        ; адрес PIX_IDX
      mov a, @r0                ; значение PIX_IDX
      mov r1, a                 ; сохранили в r1
      mov r0, #{ARRP}           ; адрес ARRP (младший)
      mov dpl, @r0              ; младший байт адреса массива
      inc r0
      mov dph, @r0              ; старший байт адреса массива
      mov a, r1                 ; индекс
      add a, dpl                ; индекс + база
      mov dpl, a
      clr a
      addc a, dph
      mov dph, a
      movx a, @dptr             ; прочитали из массива (в XRAM)
      mov dptr, #{TST}          ; загрузили адрес переменной TST
      movx @dptr, a             ; записали в TST (в XRAM)
   $end Asm
   Tst2 = Tst
   Incr Pix_idx
Loop Until Pix_idx = 8

Do
Loop

PIX_IDX                          Byte              0021          33
BYTE_VAL                         Byte              0024          36
ARRP                             Word              0022          34
TST                              Ext. Byte         0000          0
TST2                             Ext. Byte         0001          1
BLNK_IDX                         Ext. Byte (8)     0002          2