.include "m8def.inc"	; Используем ATMega8

.equ 	XTAL = 8000000 						; Частота кварца
.equ 	baudrate = 38400  					; Скорость передачи
.equ 	bauddivider = XTAL/(16*baudrate)-1	; Константа скорости передачи
			
.def	str			= R17	; Строка для команды
.def	buf			= R16	; Буфер UART
.def	buf2		= R18	; Буфер 2


.def	cnt_sig		= R20	; Число периодов1

.def	cnt_sig2	= R21	; Число периодов2


.def	dir			= R19	; Направление
.def	one			= R22
.def	zero		= R23
.def	mark		= R24

.MACRO outi				; Макрос загрузки
LDI 	R16,@1 			;
OUT 	@0,R16 			;
.ENDMACRO	

.CSEG
			.ORG 	0x0000					; Вектор сброса
			RJMP 	Reset					; Переход к начальным установками программы
			.ORG	OC2addr
			RJMP	Tick
			.ORG	URXCaddr
			RJMP	Emergen

Reset:		CLI
			OUTI 	SPL,low(RAMEND) 		; инициализация стека
			OUTI	SPH,High(RAMEND)		
			
			RCALL 	uart_init				; Инициализация UART	
			
			LDI one,1
			LDI zero,0
			
			LDI mark,0

			OUTI DDRB,(0b00011110)			; Конфигурирование ног порта на выход
			OUTI PORTB,(0b00000000)			; Низкий уровень на выходах порта

			; Приглашение на ввод команды
			LDI 	ZL,low(hello*2)			; Адрес текста приглашения
			LDI 	ZH,high(hello*2)		; на ввод команды
			RCALL 	uart_str				; Отправление приглашения
Main:		
			LDI 	ZL,low(inpt)			; Адрес текста 
			LDI 	ZH,high(inpt)			; ожидаемой команды
			ST		Z,zero	
			LDI 	ZL,low(inpt+1)			; Адрес текста 
			LDI 	ZH,high(inpt+1)			; ожидаемой команды
			ST		Z,zero	
			LDI 	ZL,low(inpt+2)			; Адрес текста 
			LDI 	ZH,high(inpt+2)			; ожидаемой команды
			ST		Z,zero	
; Приём команды и сохранение в памяти
			LDI 	ZL,low(inpt+3)			; Адрес текста 
			LDI 	ZH,high(inpt+3)			; ожидаемой команды
			ST		Z,zero
			LDI 	ZL,low(inpt)			; Адрес текста 
			LDI 	ZH,high(inpt)			; ожидаемой команды
			RCALL 	wtcmd					; Приём команды
			
; Обработка команды
							
start_cmd: 	LDI 	ZL,low(inpt)			; Адрес текста 
			LDI 	ZH,high(inpt)			; принятой команды
			LD 		cnt_sig,Z				; Чтение кода команды
			LDI 	ZL,low(inpt+1)			; Адрес текста 
			LDI 	ZH,high(inpt+1)			; принятой команды
			LD 		cnt_sig2,Z				; Чтение кода команды
			LDI 	ZL,low(inpt+2)			; Адрес текста 
			LDI 	ZH,high(inpt+2)			; принятой команды
			LD 		dir,Z				; Чтение кода команды

			RCALL 	Timer_start
			RJMP	Main
			

; Процедура инициализации приёмо-передатчика UART
uart_init:	OUTI 	UBRRL,low(bauddivider) 	;Установка скорости обмена
			OUTI 	UBRRH,high(bauddivider)	;Установка скорости обмена
			OUTI 	UCSRA, 0
			; Прерывания запрещены, прием-передача разрешен.
			OUTI 	UCSRB, (1<<RXEN)|(1<<TXEN)|(1<<RXCIE)|(0<<TXCIE)	
			; Формат кадра - 8 бит, пишем в регистр UCSRC, за это отвечает бит селектор
			OUTI 	UCSRC, (1<<URSEL)|(1<<UCSZ0)|(1<<UCSZ1)
 			
			RET

; Процедура запуска таймера
Timer_start:OUTI TIMSK,(1<<OCIE2)						; Разрешение прерываний на сравнение
			OUTI OCR2,167								; Загрузка регистра сравнения
			sei											; Разрешение любых прерываний
			OUTI TCCR2,(0<<FOC2)|(0<<WGM20)|(1<<WGM21)|(1<<CS22)|(0<<CS21)|(1<<CS20) ; Запуск
			ret

; Процедура остановки таймера
Timer_stop: OUTI TCCR2,(0<<CS22)|(0<<CS21)|(0<<CS21)	; Остановка
			OUTI PORTB,(0b00000000)						; Низкий уровень на выходах порта
			cli											; Запрет любых прерываний
			ret

; Процедура отправки байта
uart_snt:	SBIS 	UCSRA,UDRE			; Пропуск если нет флага готовности
			RJMP	uart_snt 			; ждем готовности - флага UDRE
 			OUT		UDR, R16			; шлем байт!
			RET

; Процедура отправки строки
uart_str:   LPM 	buf,Z+				; Читаем байт из памяти
			CPI 	buf,'#'				; Сравнение с #
			BRNE 	send_byte			; Если #, то
			ret							; Заканчиваем посылку строки
send_byte:	RCALL 	uart_snt			; Если не #, то посылаем байт
			rjmp 	uart_str			; Переходим к следующему байту

; Процедура приёма байта
receive:	sbis 	UCSRA,RXC			; Пропуск, если нет флага принятых данных
			rjmp 	receive				; Ожидание данных
			in 		str,UDR				; Сохраняем в str принятый байт
			ret

; Процедура приёма строки
wtcmd:		RCALL 	receive				; Ждём данные и принимаем один байт
			CPI 	str,'#'				; Сравнение с "конец строки"
			BRNE 	rec_byte			; Если не "конец строки", то 
			ret					; Если же "конец строки", то выходим из процедуры. Строка принята
rec_byte:	ST 		Z+,str				; Пишем байт в память
			rjmp 	wtcmd				; Ждём следующий байт

nextsgn:	INC 	mark
			SBRC	mark,2
			LDI		mark,0
			MOV		buf2,mark
			CP		dir,zero
			BREQ	CW
			LDI 	ZL,low(pulse*2)		; Адрес текста 
			LDI 	ZH,high(pulse*2)	; принятой команды
			rjmp 	GT
	CW:		LDI 	ZL,low(pulse2*2)		; Адрес текста 
			LDI 	ZH,high(pulse2*2)	; принятой команды
	GT:		ADD		ZL,buf2
			ADC		ZH,zero
			LPM		buf2,Z				; Чтение кода команды
			OUT		PORTB,buf2
			ret
	
; Обработка прерываний
Tick:		CP cnt_sig,zero
			CPC cnt_sig2,zero
			BRNE step
			RCALL Timer_stop
			reti
	step:	SUB cnt_sig,one
			SBC cnt_sig2,zero
			RCALL nextsgn
			reti

Emergen:	RCALL Timer_stop
			RJMP	Main


; Данные
; Приглашение на ввод команды
pulse:		.db	 2,16,8,4
pulse2:		.db	 4,8,16,2
hello: 		.db  'R','e','a','d','y','.','.','.',13,10,'#'

; Область памяти для хранения текущей команды
.dseg
inpt:		.byte 64