Финский писал(а):как в Z подставить адрес digits?
, но получилось следующее:Код: Выделить всё
; процедура индикации
DISPLAY:
ldi ZH, High(digits) ; загружаем старший байт адреса массива времени
ldi ZL, Low(digits) ; то же - младший
add ZL, razr ; прибавляем к младшему байту адреса требуемый разряд (от 0-го до 5-го)
ld temp1, Z ; загружаем байт по получившмуся адресу в временный регистр
ldi ZH,High(DATA*2) ;инициализация массива цифр (маски вида 0b00111111 - цифра 0)
ldi ZL,Low(DATA*2) ;
add ZL, temp1 ; прибавляем к нулевому адресу массива выводимую цифру из оперативки (только младший полубайт)
lpm outport, Z ; получившуюся маску загружаем в регистр вывода данных
ldi ZH,High(ADDRESS*2) ; инициализация массива разрядов (маски вида 0b11111110 - нулевой разряд )
ldi ZL,Low(ADDRESS*2)
add ZL, razr ; выбираем из массива адрес, соответствующий текущему разряду
lpm temp3, Z ; загружаем байт в регистр R0
out PORTC, temp3 ; выводим адрес в порт к к-рому подкл. общие катоды
out PORTD, outport ; выводим данные в порт к к-рому подкл. сегменты
inc razr ; увеличиваем разряд, чтобы на след цикле вывести след значение в след адрес
cpi razr, 6 ; как только значение разрядов превышает 5
brne EXIT_DISP
clr razr ; обнуляем счетчик цикла
EXIT_DISP:
ret
Код: Выделить всё
clr r17
ldi ZL, Low(ARRAY*2)
ldi ZH, High(ARRAY*2)
add ZL, razr
adc ZH, r17
Код: Выделить всё
.org 0xA000
ARRAY:
.db .......
DX168B писал(а):add ZL, razr
Я в своё время на эти грабли наступил.
Код: Выделить всё
clr r17
adc ZH, r17Gudd-Head писал(а):orion777 писал(а):Может есть какие то идеи?
Есть: учиться нормально.
Финский писал(а):Тогда адреса гарантированно будут попадать в однобайтный размер. А в процедуре сэкономим несколько директив ) Правильно мыслю, или снова грабли не заметил?
Код: Выделить всё
clr r17
ldi ZL, Low(ARRAY*2)
ldi ZH, High(ARRAY*2)
add ZL, razr
adc ZH, r17Финский писал(а):Просто в случае расположения массива в начале младший байт будет намного меньше предельного значения 0xFF, следовательно при небольших массивах (и размерах смещения к последнему элементу)
Gudd-Head писал(а):Тоже так делаю. Как я понимаю, изящней флаг переноса не прибавить.Код: Выделить всё
clr r17
adc ZH, r17
avreal писал(а):А я - так:Код: Выделить всё
mov ZL, in_dat
clr ZH
subi ZL, Low( -(tab1*2) )
sbci ZH, High( -(tab1*2) )
lpm out_dat, Z
Это просто изящный прием, позволяющий обойти отсутствие в инструкциях AVR команды "суммирование с константой", назовем ее условно ADI.DX168B писал(а):avreal писал(а):А я - так:Код: Выделить всё
mov ZL, in_dat
clr ZH
subi ZL, Low( -(tab1*2) )
sbci ZH, High( -(tab1*2) )
lpm out_dat, Z
Круто, я тоже так хочу.
Только объясните мне выражение "( -(tab1*2) )" Почему именно так записано?
. avreal писал(а):Дык эта... Не так, чтобы изящнее, но не нужно ни обнулённый регистр держать, ни обнулять по случаю свободный.
viewtopic.php?f=20&t=5931&start=1440#p726327
Ну там раньше обсуждлся косвенный переход. Тут ближе - выборка из массива по индексу. Разницы никакой -- есть фиксированный адрес (16-бит константа) и есть смещение к нему (8-бит переменная), надо сложить.Gudd-Head писал(а):Ну, это для косвенного перехода.
Код: Выделить всё
ldi ZL, Low(ARRAY*2)
ldi ZH, High(ARRAY*2)
add ZL, razr
brcc no_carry ; эти две команды вместе с меткой можно для упрощения написания
inc ZH ; оформить в макрос add_carry, принимающий регистр, к которому добавить
no_carry:Код: Выделить всё
clr r17
ldi ZL, Low(ARRAY*2)
ldi ZH, High(ARRAY*2)
add ZL, razr
adc ZH, r17