Ассемблер (ASM) для AVR в вопросах и ответах

[Demiurg]

Прежде чем задавать "странные", мягко говоря, вопросы, изучите архитектуру МК. Книга Вольфганг Трамперт AVR-RISC микроконтроллеры фирмы ATMEL. Во-первых сами разберетесь, и не будете доставать на форумах людей своими глупыми вопросами. Повторяю еще раз. Флаги SREG выставляются после каждой команды-операции над регистрами.

subi r16, 15 // В SREG будет результат операции над регистром r16. Что здесь непонятного?!

А как эти флаги выставляются аппаратно, нужно изучать схемотехнику цифровых устройств. Гуглите АЛУ. Там будут схемы и вы примерно будете представлять, как выставляются флаги SREG.

Все, отстаньте с глупыми вопросами, пока не прочитаете книгу, которую я вам назвал.

[SatinS]

Хорошо, спасибо) я немного запутался в своём вопросе)

[Kavka]

как происходит механизм запоминания, к какому именно регистру относится флаг, и сколько регистров с флагами можно обрабатывать

Статусный регистр один. Механизма "привязки" в АЛУ никакого нет .

Флаги в статусном регистре относятся к последней выполненной команде, которая их (флаги) меняла. Всё.

Дальше можно логически получать разные следствия из предыдущего утверждения. Например, что флаги относятся к тем регистрам общего назначения, над которыми выполнялась та последняя команда, которая меняла соответствующие флаги.

[alex38779]

Есть вот команды sbrc и cbrc которые проверяют n бит байта, sbrc r16, n. То есть работают с константой, а как мне сделать чтобы n задавать в программе, допустим инкрементировать ее ? Например я хочу проверить каждый бит байта.

[Demiurg]

Есть вот команды sbrc и cbrc

1 - sbrc sbrs.
2 - Варианты.

Код: Выделить всё

//==================
.nolist
.include   "m8535def.inc"
.list
//==================

rjmp Reset

Reset:
ldi r16, HIGH (RAMEND)
out SPH, r16
ldi r16, LOW (RAMEND)
out SPL, r16

Main:
wdr

//----------
Method_1:
ldi r16, 5 // Нужно проверить 5 бит.
ldi r17, 1<<5 // Устанавливаем 5 бит.

Method_1_Cycle:
tst r16
breq Method_1_Equal
lsr r17
dec r16
rjmp Method_1_Cycle

Method_1_Equal:
sbrs r17, 0
rjmp Method_1_Zero
rjmp Method_1_One

Method_1_Zero:
rjmp PC+1

Method_1_One:
rjmp PC+1
//----------
Method_2:
ldi r16, 5 // Нужно проверить 5 бит.
ldi r17, 1<<5 // Устанавливаем 5 бит.
ldi r18, 1

Method_2_Cycle:
tst r16
breq Method_2_Equal
lsl r18
dec r16
rjmp Method_2_Cycle

Method_2_Equal:
and r17, r18
breq Method_2_Zero
brne Method_2_One

Method_2_Zero:
rjmp PC+1

Method_2_One:
rjmp PC+1
//----------
Method_3:
ldi r16, 5 // Нужно проверить 5 бит.
ldi r17, 1<<5 // Устанавливаем 5 бит.

clr ZH
mov ZL, r16
subi ZL, LOW (-(Table_Bits*2))
sbci ZH, HIGH (-(Table_Bits*2))
lpm

and r17, r0

breq Zero
brne One

Zero:
rjmp PC+1

One:
rjmp PC+1

rjmp  Main

;----------
Table_Bits:
.db      0b00000001, 0b00000010
.db      0b00000100, 0b00001000
.db      0b00010000, 0b00100000
.db      0b01000000, 0b10000000
;----------

Учтите, вы должны проверять значение номера бита на выход за предел 7 (0-7 биты). И учитывайте, что машинный счет начинается с нуля. То есть, декрементируйте номер бита. То есть, если нам нужно проверить 1 бит, то индекс должен быть 0.

[alex38779]

у меня 126 байт заняла эта операция, ну я сам написал.

[Kavka]

Например я хочу проверить каждый бит байта.

Какой контроллер? Не важно.
Табличный метод хорош. Стабилен по времени выполнения и компактен.
Можно маску получать с помощью цикла со сдвигом. Может быть будет чуть меньше занимать в памяти, но время выполнения будет разное для разных битов.

[BOB51]

... а как мне сделать чтобы n задавать в программе...

Иногда в подобных случаях помогает вспомогательная маска "бегущий нуль(единица)", смещаемая при каждом контрольном цикле программы.

[Z_h_e]

Например я хочу проверить каждый бит байта

Код: Выделить всё

   ldi R16,0x55 //тестируемый регистр
   ldi R17,8 //количество циклов

   push r16 //сохранить значение регистра (если надо)

povtor:
   lsl R16 //сдвиг влево регистра, старший бит во флаг С
   brcs Propusk //пропустить сколкьо надо команд если установлен флаг С

   nop    //что то когда флаг С сброшен
   nop
   nop
   nop
   nop
   nop
   nop
   nop
   nop

Propusk:
dec R17         //уменьшаем счечтик циклов и если не ноль то повторяем
brne  povtor

  pop r16      //восстановить R16

[Demiurg]

...

Ну тады как-то так: тут.

[akl]

Есть вот команды sbrc и cbrc которые проверяют n бит байта, sbrc r16, n. То есть работают с константой...

Замечу. Команды SBRS и SBRC работают с 1 битом!
SBRC This instruction tests a single bit in a register and skips the next instruction if the bit is cleared.
SBRS This instruction tests a single bit in a register and skips the next instruction if the bit is set.
Для проверки n-бит есть прекрасная команда
CPSE This instruction performs a compare between two registers Rd and Rr, and skips the next instruction if Rd = Rr.

[Demiurg]

Есть вот команды sbrc и cbrc которые проверяют n бит байта, sbrc r16, n. То есть работают с константой...

SBRS и SBRC работают с 1 битом!

Об этом все знают. Перечитайте еще раз цитату, которую сами привели: ТС сетует, что эти команды работают с константой, и ему хочется проверять произвольный бит, который задан в переменной.

[alex38779]

Почему команда ret кидает в самое начало программы -
.ORG $00? Ни как не могу понять..

Спойлер

Код: Выделить всё

 .def temp2    = r18 
 .def numDigit = r19
 .def temp     = r20
 .def temp1    = r21
 .def tempL    = r23
 .def tempH    = r24
 .def tempX    = r25

 .equ DS = PB3
 .equ ST_CP = PB4
 .equ SH_CP = PB2 

 ;================
 .DSEG
   number: .byte 1
   digit:  .byte 1
   n1:      .byte 1 ;1000
   n2:      .byte 1 ;100
   n3:      .byte 1 ;10
   n4:      .byte 1 ;1
 ;================
 .CSEG

 .ORG $00
   rjmp reset    ; Reset
 .ORG $03
   rjmp OVF0 ; Timer/Counter0 Overflow
 
 OVF0:    
   ;rjmp send595         
   reti

 reset:     
   ;stek
   ldi r16, RAMEND 
   out SPL, r16
   cli
   ;595
   in temp, DDRB
   ori temp, 1<<DS | 1<<ST_CP | 1<<SH_CP
   out DDRB, temp
   in temp, PORTB
   andi temp, ~(1<<DS | 1<<ST_CP | 1<<SH_CP)
   out PORTB, temp
   ;timer
   in r16, TCCR0B
   ori r16, 1<<CS01
   out TCCR0B, r16
   ldi r16, $00
   out TCNT0, r16
   ;прерывания
   in r16, TIMSK0
   ori r16, 1<<TOIE0
   out TIMSK0, r16
   sei
   ldi numDigit, 0b11110000;0b76543210   
 main:
   rjmp staskSave
   ;число в оперативку
   ldi YL, low(1234)
   ldi YH, high(1234)   
   ld r16, Y+
   ld r17, Y+
   ldi XL, byte1(596)
   ldi XH, byte2(596)
   st Y+, XH
   st Y+, XL
   ;разложение на разряды
   ;rjmp todigit   
   rjmp staskLoad
   rjmp main
 
 staskSave:
   push r16
   push r17
   push r18
   push r19
   push r20
   push r21
   push r22
   push r23
   push r24
   push r25
   push r26
   push r27
   push r28
   push r29
   push r30
   push r31
   ret

 staskLoad:
   pop r31
   pop r30
   pop r29
   pop r28
   pop r27
   pop r26
   pop r25
   pop r24
   pop r23
   pop r22
   pop r21
   pop r20
   pop r19
   pop r18
   pop r17
   pop r17


   ret

даже когда вызываю через rcall, все ровно кидает в начало.

[Z_h_e]

Почитайте про стек и его указатель. Значение указателя стека перед выходом из подпрограммы должно быть тем же что на входе в подпрограмму, только тогда указатель стека будет указывать на память в которой хранится адрес возврата. Если Вы что-то скинули на стек в подпрограмме, то перед выходом из нее должны столько же раз считать.

[alex38779]

Все ровно не понял проблемы...
Именно при вызове этой подпрограммы - staskSave: происходит эта ошибка. Или я слишком много значений пишу в стек?

[Z_h_e]

Почитайте про стек и его указатель.

Из следующей подпрограммы Вы корректно выйдете, и не важно что в конце ее два раза подряд R17

Спойлер

Код: Выделить всё

 NekayaPodprogramma:
   push r16
   push r17
   push r18
   push r19
   push r20
   push r21
   push r22
   push r23
   push r24
   push r25
   push r26
   push r27
   push r28
   push r29
   push r30
   push r31
  

   pop r31
   pop r30
   pop r29
   pop r28
   pop r27
   pop r26
   pop r25
   pop r24
   pop r23
   pop r22
   pop r21
   pop r20
   pop r19
   pop r18
   pop r17
   pop r17


   ret

[alex38779]

Это я уже исправил, про два раза r17.
А как быть с первой? Это срыв стека тот самый выходит?

Мне нужно сохранить данные, выполнить действия, и снова восстановить данные.

[Z_h_e]

Z_h_e писал(а):
Почитайте про стек и его указатель.

Не хотите читать, выполняйте программу по шагам в симуляторе и поглядите как изменяется указатель стека при входе в подпрограмму, при выходе из нее и при выполнение команд PUSH и POP.

Мне нужно сохранить данные, выполнить действия, и снова восстановить данные.

Используйте команды ST и LD. Только помните что регистры X, Y, Z - это R26-R31. Что у Вас за задача такая, что надо сохранять почти все регистры? Ну или выполните действия в той подпрограмме что я Вам показал между блоков PUSH и POP команд.

[alex38779]

Что у Вас за задача такая, что надо сохранять

Я изучаю все это дело.. эксперементирую

Хорошо попробую! Прочитал раз 5 все ровно туго доходит...

[Z_h_e]

Чем туже зайдет - тем крепче сидеть будет .