Assembler. Программирование МК. COM-порты

[Dr.Yevhenius]

Добрый день! Собственно, проблема с COM-портом. По заданию, каждую милисекунду, нужно передать на порт COM некие несколькобайтовые данные.
Есть некие учебники Баранова, Голубцова, но даже с ними дело идет тяжело... Может кто-то знает, где можно найти информацию или прочитать о передаче данных на COM-порт, где более-менее легко понять теорию?
Даже если не будет ответов, задача будет в любом случае реализованной, но, просто, не хочеться убить час или несколько часов на несложную, думаю, проблему.
Буду очень благодарен.

[Алексей++]

YevhenUA, если в МК нет спецмодуля, то придётся реализовать интерфейс rs232 http://ru.wikipedia.org/wiki/RS-232

[Sla]

что тебе нужно?
получать данные на комп?

Легко.
Гипертерминал.
открываешь и смотришь в консоли, что тебе приходит с компорта. Ограничение - выводит только текстовые символы

[RXL]

YevhenUA, откуда передавать и куда?

[Dale]

По заданию, каждую милисекунду, нужно передать на порт COM некие несколькобайтовые данные.

Для начала следовало бы определиться с реализуемостью этой затеи в принципе. А она зависит от скорости передатчика и конкретного количества байт на передачу.

Простая прикидка: скорость порта 115200 бит в секунду позволит за одну миллисекунду отправить не более 10-11 байт. На меньшей скорости, соответственно, меньше.

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

[Dr.Yevhenius]

YevhenUA, если в МК нет спецмодуля, то придётся реализовать интерфейс rs232 http://ru.wikipedia.org/wiki/RS-232

Я знаю, что мне нужно реализовать интерфейс RS-232, у меня проблема была с тем, как это сделать.

что тебе нужно?
получать данные на комп?

Легко.
Гипертерминал.
открываешь и смотришь в консоли, что тебе приходит с компорта. Ограничение - выводит только текстовые символы

Я не мог посмотреть, что выводит - кода не было, выводящего данные в порт.

YevhenUA, откуда передавать и куда?

RXL, передавать с МК на порт COM

Простая прикидка: скорость порта 115200 бит в секунду позволит за одну миллисекунду отправить не более 10-11 байт. На меньшей скорости, соответственно, меньше.

Мне нужно передать всего-то 3-4 байта, так что скорости 57600, думаю, должно хватить.

...задача решения не имеет.

Как решение - взять другой контроллер; я не привязан к отдельной версии.

У меня сейчас иная проблема: не могу запустить код на выполнение, так как

D:\Temp\TimerCOM\TimerCOM.asm(94): error: Invalid register

и таких ошибок 21 штука. Все они указывают на cpi или ldi. Хотя в документации AT90S2313 написано, что комманды поддерживаются. С чем это может быть связано?

[Sla]

TimerCOM.asm

в студию

[Dr.Yevhenius]

Код:

.include "2313def.inc"

.cseg

.org 0

			rjmp		RESET

; ЗМІННІ.
; Змінні часу.
.def timem  = r11 ; Час (в хв).
.def times  = r12 ; Час (в с).
.def timems = r13 ; Час (в мс).

; Змінні стану.
.def runed  = r14 ; Чи запущений таймер.
.def paused = r15 ; Чи знаходиться таймер в режимі паузи.

; Загальні змінні (що не ввійшли до попередніх блоків.
.def proc = r16 ; Змінна для різних маніпуляцій.
.def over = r17 ; Похибка часу.

; КОНСТАНТИ.
; Кнопки.
.equ play    = PD2 ; Кнопка "Старт".
.equ pause   = PD3 ; Кнопка "Пауза".
.equ stop    = PD4 ; Кнопка "Стоп"
.equ refresh = PD5 ; Кнопка "Перезапустити".
; Лінії передачі даних через COM-порт.
.equ TxD = PD1
; Прийом/передача слів.
.equ t9b = (1<<TXEN) + (1<<CHR9) ; Передача 9-бітних слів.
; Передача даних.
.equ FMB = $aa ; First message byte. ; Перший байт повідомлення.

RESET:
			ldi			proc,15
			out			WDTCR,proc			; Ініціалізація сторожового таймера:
										; при відсутності команди скиду (wdr)
										; через 2 с відбудеться перехід на
										; переривання RESET.
			wdr							; Скид сторожового таймера.

			clr			proc				; Очистка proc (proc = 0).
			out			DDRD,proc			; Лінії порта D - входи.
			ser			proc				; Встановлення в proc значення 0FF.
			out			PORTD,proc			; На всіх лініях порта D
										; встановлення ВИСОКИХ рівнів.
			out			PIND,proc			; Операція для AVR Studio, щоб
										; встановити на контактах порта
										; D ВИСОКІ рівні; інакше
										; відлагоджувач буде сприймати
										; стан ліній порта D як одночасне
										; натискання всіх чотирьох кнопок:
										; "Старт", "Пауза", "Стоп" і
										; "Перезапустити".

			; Ініціалізація стека.
			ldi			proc,low(RAMEND)
			out			SPL,proc

main:
			sbis		PIND,play			; Пропуск наступної команди, якщо
									; на лінії play (PD2) ВИСОКИЙ рівень.
			rcall		PlayTimer			; Виклик підпрограми PlayTimer.

			sbis		PIND,pause			; Пропуск наступної команди, якщо
									; на лінії play (PD3) ВИСОКИЙ рівень.
			rcall		PauseTimer			; Виклик підпрограми PauseTimer.

			sbis		PIND,stop			; Пропуск наступної команди, якщо
									; на лінії play (PD4) ВИСОКИЙ рівень.
			rcall		StopTimer			; Виклик підпрограми StopTimer.

			sbis		PIND,refresh			; Пропуск наступної команди, якщо
									; на лінії play (PD5) ВИСОКИЙ рівень.
			rcall		ResetTimer			; Виклик підпрограми RestartTimer.

			rcall		IncTimer				; Нарощуємо значення таймера (звісно,
									; якщо можна).

			rjmp		main				; Повернення в початок main'а.

; Підпрограма запуска таймера.
; ============================
PlayTimer:
			ldi			runed,1			; Запис 1 у змінну стану запуску, що
									; означає, що таймер запущено.

			cpi			paused,1		; Перевірка, чи активовано режим паузи:
			brne			playTEnd		; якщо ні, то вихід з підпрограми;
			ldi			paused,0		; інакше - деактивація режиму паузи.

playTEnd:	ret							; Кінець підпрограми PlayTimer.

; Підпрограма обробки запиту на паузу.
; ====================================
PauseTimer:
			cpi			runed,1			; Перевірка, чи запущено таймер;
			brne			pauseTEnd		; якщо ні, то вихід з підпрограми.

			cpi			paused,0		; Стан запуску порівнюється з нулем:
			breq			notPaused		; якщо регістр дорівнює 0, то значить
									; таймер не призупинено, отже, необхідно
									; активувати паузу (перехід до мітки
									; notPaused);
			; інакше: вихід з режиму паузи:
			ldi		paused,0			; встановлення значення змінної в 0
			rjmp		pauseTEnd			; і вихід з підпрограми.

notPaused:		ldi			paused,1		; Запис в змінну паузи 1.

pauseTEnd:		ret						; Кінець підпрограми PauseTimer.

; Підпрограма зупинки таймера.
; ============================
StopTimer:
			ldi			runed,0			; У змінну стану запуску записується 0,
									; що означає, що таймер зупинено.
			ldi			paused,0		; Пауза теж прибирається.

			ret						; Кінець підпрограми StopTimer.

; Підпрограма обнуління таймера.
; ==============================
ResetTimer:
									; Обнуління таймера.
			ldi			timems,0
			ldi			times,0
			ldi			timem,0

			ret						; Кінець підпрограми RestartTimer.

; Підпрограма нарощення часу.
; ===========================
IncTimer:
			cpi		runed,0				; Перевірка, чи запущений таймер:
			breq		incTEnd				; якщо так, то - вихід з підпрограми.

			cpi		paused,0			; Перевірка, чи не знаходиться таймер
									; в режимі паузи:
			breq		incTEnd				; якщо так, то - вихід з підпрограми.

			rcall		SendTime			; Відсилання часу.
			rcall		Wait1ms				; Затримка в 1 мс.

			inc		timems				; Збільшення кількості мілісекунд.

			; Досягнення секунди.
			cpi			timems,100		; Перевірка, чи не досягнуто позначки
									; нової секунди;
			brlo			incTEnd			; якщо ні, то - вихід з підпрограми;
			inc			times			; збільшення кількості секунд;
			ldi			timems,0		; обнуління лічильника мілісекунд.

			; Досягнення хвилини.
			cpi			times,60			; Перевірка, чи не досягнуто позначки
									; нової хвилини:
			brlo			incTEnd			; якщо ні, то - вихід з підпрограми;
			inc			timem			; збільшення кількості хвилин;
			ldi			times,0			; обнуління лічильника секунд.
			adiw			over,8			; Урахування похибки.

			; Досягнення години.
			cpi			timem,60		; Перевірка, чи не досягнуто позначки
									; нової години:
			brlo			incTEnd			; якщо ні, то - вихід з підпрограми;
			ldi			timem,0			; інакше - обнуління лічильника хвилин.

incTEnd:	ret								; Кінець підпрограми IncTimer.

; Підпрограма затримки на 1 мс.
; =============================
Wait1ms:
			wdr						; Скид сторожового таймера.

			; Затримку в 1 мс.
			ldi			YL,low(13333)
			ldi			YH,high(13333)
waitCycle:		sbiw			YL,1			; Від пари YH:YL віднімається 1.
			brne			waitCycle		; Якщо результат виконання останньої
									; команди не рівне 0, то продовжити
									; цикл.

			ret						; Кінець підпрограми Wait.

; Підпрограма відсилання часу.
; ============================
SendTime:
			ret						; Кінець підпрограми SendTime.

[Sla]

а сколько регистров у МК?

зы вопрос отпал

Возник другой

покажи листинг вывода ошибки

[lag]

D:\Temp\TimerCOM\TimerCOM.asm(94): error: Invalid register

и правильно!
команды ldi и cpi применяются только к старшим регистрам, т.е. r16-r31.

По командам посмотри:  http://www.gaw.ru/html.cgi/txt/doc/micros/avr/asm/start.htm

[lag]

проблема с COM-портом

нет у этого контроллера СОМ-порта, есть USART, что однако не одно и тоже.

[RXL]

Соответственно, нужен конвертер RS232C<->TTL. Например, MAX232 или что-то аналогичное. Линиями управления можно пренебречь и использовать трехпроводную схему (со стороны компа стоит замкнуть RTS-CTS и DTR-DSR-DCD).