Байт по RS232 Опции

[Kuznec9999]

Помогите. Необходимо переслать байт данных по RS232 на компьютер (например регистр R16). Как это сделать на ATMega8 на ассемблере?

[aaarrr]

Можно так:

Код

tx_byte:
    in    c, UCSRA
    sbrs    c, UDRE
    rjmp    tx_byte
    out    UDR, a
    ret

[Kuznec9999]

Можно так:

Код

tx_byte:
    in    c, UCSRA
    sbrs    c, UDRE
    rjmp    tx_byte
    out    UDR, a
    ret

Ээ? И это всё? Честно говоря ожидал чего-то сложного . А не подскажите где про эту коммуникацию AVR и ПК через RS232 можно прочитать? Спасибо.

[aaarrr]

Ээ? И это всё? Честно говоря ожидал чего-то сложного

Можно и сложно, но если стоит задача только передать байт, то зачем?

Да, инициализация еще нужна:

Код

    .equ    fck = 7372800; Частота кварца
    .equ    ubrv = (fck/(16*115200))-1; 115200 - битовая скорость UART

    .def    a = r16
    .def    c = r17

uart_ini:
    ldi    a, low(ubrv)
    out    UBRRL, a
    ldi    a, high(ubrv)
    out    UBRRH, a
    ldi    a, 0x00
    out    UCSRA, a
    ldi    a, (1<<RXEN) | (1<<TXEN)
    out    UCSRB, a
    ldi    a, (1<URSEL) | (1<<UCSZ1) | (1<<UCSZ0)
    out    UCSRC, a
    ret

[Kuznec9999]

Можно и сложно, но если стоит задача только передать байт, то зачем?

Да, инициализация еще нужна:

Код

    .equ    fck = 7372800; Частота кварца
    .equ    ubrv = (fck/(16*115200))-1; 115200 - битовая скорость UART

    .def    a = r16
    .def    c = r17

uart_ini:
    ldi    a, low(ubrv)
    out    UBRRL, a
    ldi    a, high(ubrv)
    out    UBRRH, a
    ldi    a, 0x00
    out    UCSRA, a
    ldi    a, (1<<RXEN) | (1<<TXEN)
    out    UCSRB, a
    ldi    a, (1<URSEL) | (1<<UCSZ1) | (1<<UCSZ0)
    out    UCSRC, a
    ret

------------------------------------------------------
.include "c:\asm\AvrAssembler2\Appnotes\m8def.inc"

.equ fck = 1000000; Частота кварца
.equ ubrv = (fck/(16*115200))-1; 115200 - битовая скорость UART

.def a = r16
.def c = r17

ldi r20,0b11111111
out ddrd,r20

ldi a, low(ubrv)
out UBRRL, a
ldi a, high(ubrv)
out UBRRH, a
ldi a, 0x00
out UCSRA, a
ldi a, (1<<RXEN) | (1<<TXEN)
out UCSRB, a
ldi a, (1<URSEL) | (1<<UCSZ1) | (1<<UCSZ0)
out UCSRC, a

ldi a,0b10101010
qwe:
tx_byte:
in c, UCSRA
sbrs c, UDRE
rjmp tx_byte
out UDR, a
rjmp qwe
-------------------------------------------------------------

Скажите, такая программа выведет переменную "а" на компьютер? спасибо.

Нашёл ошибку . Отсутствие одного знака "<" ... Я уже чуть не умер в разборках в чём же дело