Отправлено Aleksey75 21 октября 2006 г. 09:19 В ответ на: 2 Aleksey75: приведи весь код (в тегах <pre> и </pre>, с пробелами до/после знаков > и <) отправлено =AVR= 20 октября 2006 г. 22:18

Честно говоря я уже передачу по уарт оформил отдельной программой, проблемма не решилась, задержка перед отправкой корявит отправляемые данные, вот только каким образом, понять не могу...
< pre >
; Êâàðö 16 MHz, atmega8
;Òàéìåðû CK/8

.include "d:\my code\m8def.inc"

.def tmp =r16
.def tmpL =r17
.def tmpH =r18
.def lc =r19
.def cikl =r20

.cseg
.org $0000
rjmp reset

reset:

ldi tmp,0x5f ;$035f
out spl,tmp ;Îïðåäåëåíèå âåðøèíû ñòåêà
ldi tmp,0x03 ;$035f
out sph,tmp ;Îïðåäåëåíèå âåðøèíû ñòåêà

;---------------Îïðåäåëÿåì íàïðàëåíèå ðàáîòû ïîðòîâ -----------------------------------------------------
;Íàïðàâëåíèå ðàáîòû ïîðòîâ

;PORTB
ser tmp
out DDRB,tmp ;Âûõîä
clr tmp
out PORTB,tmp ;Íèçêèé óðîâåíü íà âûõîäå ïîðòà
out PINB,tmp ;Íèçêèé óðîâåíü íà âûõîäå ïîðòà

;PORTD
ser tmp ;tmp=0xFF
out DDRD,tmp ;
clr tmp
out PORTD,tmp ;Íèçêèé óðîâåíü íà âûõîäå ïîðòà
out PIND,tmp ;íèçêèé óðîâåíü íà âûõîäå ïîðòà

;PORTC
ser tmp ;tmp=0xFF
cbr tmp,(1< out DDRC,tmp ;PÑ1 è PÑ0 Âõîäû
clr tmp
out PORTC,tmp ;Íèçêèé óðîâåíü íà âûõîäå ïîðòà
out PINC,tmp ;Íèçêèé óðîâåíü íà âûõîäå ïîðòà

;---------------Ðàçðåøàåì ðàáîòó ñòîðîæåâîãî òàéìåðà , ñáðîñ ÷åðåç 2 ñåê---------------------------------
; wdr
; ldi tmp,0b00011000 ;WDP=110(1ñåê),WDE=1,
; out WDTCR,tmp
; ldi tmp,0b00001111
; out WDTCR,tmp ;Óñòàíîâêà ñòîðîæåâîãî òàéìåðà
;::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::


;---------------Âûêëþ÷àåì àíàëîãîâûé êîìïîðàòîð----------------------------------------------------------
ldi tmp,0b10000000
out acsr,tmp ;âûêëþ÷åíèå àíàëîãîâî êîìïàðàòîðà
;::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::

;:::::::::::;;::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::

main:



ldi zL,low(65535) ;Çàãðóçêà â YH:YL êîíñòàíòû 65535
ldi zH,high(65535)
sbiw zL,1 ;âû÷èòàíèå èç YH:YL åäåíèöû
brne pc-1 ;Åñëè ðåçóëüòàò âû÷èòàíèÿ íå ðàâåí 0 ïåðåéòè íà pc-1

;************test USaRT


ldi tmp,0x67
out UBRRL,tmp ;UBRR = c = 9600

sbi UCSRB,txen

sbis ucsra,udre
rjmp pc-1

ldi tmp,0x01
out udr,tmp

sbis ucsra,udre
rjmp pc-1

ldi tmp,0x02
out udr,tmp

sbis ucsra,udre
rjmp pc-1


ldi tmp,0x03
out udr,tmp

sbis ucsra,udre
rjmp pc-1

ldi tmp,0x04
out udr,tmp

sbis ucsra,udre
rjmp pc-1

ldi tmp,0x05
out udr,tmp

sbis ucsra,udre
rjmp pc-1

ldi tmp,0x06
out udr,tmp

nop
Rjmp pc-1
;*************
< / pre >

• чёт не понял - clr tmp out PORTD,tmp - так это даст 0-ик на TXD0 - который будет как ложный стартовый бит выдан, а далее после задержки вся синхронизация будет сбита нафик — DASM   (21.10.2006 10:27 212.58.192.14, пустое)
  • Мля.........точно.......не учёл что Пк воспринимает это как стартовый бит.........Блин всё верно, вот идиот.....Спасибо! — Aleksey75   (21.10.2006 10:44 87.238.112.163, пустое)
    • На будущее - теги <pre> и </pre> пиши без пробела у угловых скобок, а в тексте перед/после ">>" и "<<" - наоборот, ставь пробелы, чтобы скрипт не принял их за HTML-теги. И не пиши rjmp PC-1 - ставь метку и пиши m1: rjmp m1 — =AVR=   (21.10.2006 13:13 80.92.96.19, пустое)
      • Можно, чуть поподробне + — Aleksey75   (21.10.2006 13:28 87.238.112.163, 92 байт)
        • Сказанное DASMом я сформулирую несколько иначе - нефиг вычислять за компилятор (ассемблер) — =AVR=   (21.10.2006 14:48 80.92.96.19, 1231 байт)
          • P.S. учти, что мои примеры не для М8 - если будешь их применять, замени STS на OUT — =AVR=   (21.10.2006 15:29 80.92.96.19, пустое)
            • это я заметил..... — Aleksey75   (21.10.2006 15:36 87.238.112.163, пустое)
          • Огромное спасибо! + — Aleksey75   (21.10.2006 15:27 87.238.112.163, 249 байт)
            • Как видишь, для смены частоты кварца или скорости UART достаточно просто задать новое значение в герцах или бодах — =AVR=   (21.10.2006 16:18 80.92.96.19, пустое)
            • Под стек ты отдаешь не все ОЗУ, а всего-навсего начинаешь свой стек с конца ОЗУ — =AVR=   (21.10.2006 16:08 80.92.96.19, 1995 байт)
            • не пользуй .equ для адресов переменных - вообще забудь про абсолютные адреса и их ручное задание, я коллегу лет 5 назад за это чуть не убил. Пользуй DS — DASM   (21.10.2006 15:35 212.58.192.14, пустое)
              • В AVRASM не .DS, а .BYTE, но суть та же — =AVR=   (21.10.2006 16:10 80.92.96.19, пустое)
        • связанно с прерываниями... — Aleksey75   (21.10.2006 13:33 87.238.112.163, пустое)
          • имхо связано с нечитабельностью, еще вспоминать надо, сколько у АВРа командное слово и в каких попугаях выражен -1 (+) — DASM   (21.10.2006 13:53 212.58.192.14, 381 байт)
• v2 — Aleksey75   (21.10.2006 09:49 87.238.112.163, 2565 байт)
• кометны покарёжило.. — Aleksey75   (21.10.2006 09:20 87.238.112.163, пустое)