Как написать код на ассемблере AVR-на "С"-понятно. Опции

[serj32]

Здравствуйте.Подскажите пожалуйста.Вот код на Си -здесь всё понятно.

if (u > 256) // 1.25V
PORTD = 0b00000011;
if (u > 384) // 1.875V
PORTD = 0b00000111

А вот как реализовать на ассемблере,дело в том ,что переменная-"u"-это двухбайтное число(10 разрядов)
у меня это регистры АЦП-ADCL , ADCH.
И если не трудно подскажите ,что сделал автор в 23 строке своей программы u = (ADCL|ADCH << 8);-взято отсюда http://radioparty.ru/index.php/prog-avr/pr...adc-avr?start=1
Если можно то подробнее.Спасибо.

[zombi]

Ход примерно правильный.
Но!!!
Я же уже писал что сперва нужно старшие байты сравнивать, а младшие только в случае равенства старших!
Для сравнения регистра с константой команда CPI

Да действительно">" так должно-это я пытаюсь отсюда ...

Cыль не открывается
Т.е. если значение АЦП больше 384 то пин D2 , за время выполнения этого кода, поменяет свое состояние дважды.

[_Pasha]

Ход примерно правильный.
Но!!!
Я же уже писал что сперва нужно старшие байты сравнивать, а младшие только в случае равенства старших!

Не учите людей плохому

Код

ldi zL,low(constant1) ; загрузки по нормальному оформляют в виде макроса
ldi zH,high(constant1);

in temp1,ADCL
in temp2,ADCH
cp temp1,zL
cpc temp2,zH
brge kakaya_to_metka; или brlo или что там еще

Итд в таком же духе
Авровский асм имеет много псевдонимов у команд, но они хорошо отражают смысл того, что происходит, поэтому можно не стесняться

[serj32]

Не учите людей плохому

Код

ldi zL,low(constant1); загрузки по нормальному оформляют в виде макроса
ldi zH,high(constant1);

in temp1,ADCL
in temp2,ADCH
cp temp1,zL
cpc temp2,zH
brge kakaya_to_metka; или brlo или что там еще

Итд в таком же духе
Авровский асм имеет много псевдонимов у команд, но они хорошо отражают смысл того, что происходит, поэтому можно не стесняться

Здравствуйте Pasha,интересный код сейчас буду разбираться.
По рекомендации zombi написал код,если не трудно проверьте пожалуйста.
И сомневаюсь там где NOP нодо ли мне это делать.Спасибо.

Код

.include "m8def.inc"
.def temp1 = R16
.def temp2 = R17

.equ cons1 = 256
.equ cons2 = 384

;----вершина стека , инициализация портов,АЦП и т.д

in temp1,ADCL             ;младший байт результата АЦП
in temp2,ADCH             ;старший.................АЦП

         cpi temp2,high(cons1)  ;сравниваем ADCH с старшим байтом константы 256
         breq  metka1        ;если temp2 = high(cons1) флаг Z будет установлен и произойдёт переход на metka1

         brcs  metka2        ;если старший байт ADCH > старшего байта константы 256-high(cons1) то флага C не будет и
         out PORTD,0b00000011;перехода на metka2 не будет и включим 2 крайних светодиода

         rimp step2             ;никчему проверять младшие байты-надо перепрыгнуть на проверку следующей константы

metka1:  cpi temp1,low(cons1);в связи с тем ,что старшие байты равны - сравниваем младшие,если байт в ADCL >младшего
         breq  metka3        ;байта константы то и перехода на metka3 не будет и соответственно
         out PORTD,0b00000011;включим два крайних светодиода

metka2:  nop
metka3:  nop

step2:   cpi temp2,high(cons2)  ;сравниваем ADCH с старшим байтом константы 384
         breq  setka1            

         brcs  setka2            
         out PORTD,0b00000111;включим три крайних светодиода

         rimp step3              

setka1:  cpi temp1,low(cons2)    
         breq  setka3            
         out PORTD,0b00000111;включим три крайних светодиода

setka2:  nop
setka3:  nop

step3:;и так далее в конце надо будет ещё задержку на таймере думать

Сообщение отредактировал serj32 - Sep 21 2013, 20:39

[ae_]

Если я правильно понял о чём речь, то в итоге должно получиться что-то вроде индикатора уровня: чем больше значение в ADC, тем больше включено разрядов PORTD.
Это можно сделать для 8 сравнений с разными константами и разными значениями для PORTD например так:

Код

.def    temp    =R16
.def    uL    =R20
.def    uH    =R21
;---------------------------------
.macro    inw        ; чтение в RH:RL из ioadrH:ioadrL
    in    @0L, @1L; RL <- ioadrL
    in    @0H, @1H; RH <- ioadrH
.endm
;---------------------------------
.macro    cpiw        ; сравнение RH:RL с 16-бит константой
    ldi    temp, high(@1); используя временный регистр
    cpi    @0L, low(@1); сравнить младшие байты
    cpc    @0H, temp; сравнить старшие байты с учётом переноса
.endm
;---------------------------------
.macro    caseADC
    cpiw    u, @0    ; сравнить значение u с 16-бит константой
    brlo    skip    ; перейти, если u < const
    ldi    temp, @1; иначе загрузить в temp значение для вывода в PORTD
    rjmp    done    ; выход, пропустить все оставшиеся сравнения
skip:            ; перейти к следующему сравнению
.endm
;---------------------------------
; выше было только описание констант, макросов и регистров
; вот сама программа:

    inw    u, ADC        ; прочитать в uH:uL значение из ADCH:ADCL
    caseADC    1001, 0b11111111; сравниваем от бОльших значений
    caseADC    701,  0b01111111; к меньшим
    caseADC    526,  0b00111111
    caseADC    394,  0b00011111
    caseADC    296,  0b00001111
    caseADC    222,  0b00000111
    caseADC    166,  0b00000011
    caseADC    125,  0b00000001
    ldi    temp, 0b00000000; значение для PORTD в случае, когда ADC<min
done:
    out    PORTD, temp    ; выводим в PORTD значение, соответствующее ADC