.def	Temp=R16
.def	Temp1=R17
.def	Temp2=R18
.def	Temp3=R19
.def	Temp4=R20
.def	Temp5=R21
.def	Temp6=R22
.def	Temp7=R23
.def	Temp8=R24
.def	Temp9=R25


.dseg			;оперативка

key_buff: .byte 5	; зарезервируем 5 байт в ОЗУ


;******************************************************************************

.EQU ImpLen=0xCE4 			; длина импульса   (165 мкс)
.EQU OneLen=0xCE4 			; длина паузы для единицы  (165 мкс)
.EQU NulLen=0x19C8			; длина паузы для нуля  (330 мкс)

;******************************************************************************

.cseg

.org 0


rjmp RESET				; External Pin, Power-on Reset, Brown-out Reset, and Watchdog Reset

.org   OC1Aaddr				; (=0x0004) Timer/Counter1 Compare Match A

rjmp OCR1A_COMP

.org INT_VECTORS_SIZE


;******************************************************************************
;старт
;******************************************************************************

reset:						; включение микроконтроллера

	cli					; глобальный запрет на прерывания


	ldi Temp,low(RamEnd)			; инициализации стека	
	out SPL,Temp				;

	
	ldi Temp,0b00001111			; настроили порт "В" (0-ввод, 1-вывод)
	out DDRB,Temp				; 0000х000 - "вывод" на передатчик (PB3- 15 ножка)
						; хххх0000 - "ввод" для чтения строк клавиатуры
						; 00000ххх - "вывод" " 
												 
	ldi Temp,0b00011111			; настраиваем порт "D" (0-ввод, 1-вывод)
	out DDRD,Temp 				; 0000хххх - на вывод столбцов клавы


					
	ldi Temp,(0<<cs12)|(0<<cs11)|(0<<cs10)	; установили тактовый сигнал = CK 0 
	out TCCR1B,Temp				; таймер выключен!!!
						



	sei					; глобальное разрешение прерываний
        



;*******************************************************************************
; главный цикл
;*******************************************************************************


Main_cicle:

	rcall keyboardread		; вызов подпрограммы чтения клавиатуры [1>]

	rcall certain_buttons_keyboard	; вызов подпрограммы проверки нажатия [2>]
	
	rjmp Main_cicle			; циклимся



;*******************************************************************************
; цикл Чтения клавы и запись данных в ОЗУ
;*******************************************************************************

keyboardread:				; метка - опрос клавиатуры

          
	ldi Temp,5			; количество столбцов клавы = пять
         
	ldi Temp1,0b00000001		; первый столбец

          				; загружаем адрес метки массива (key_buff, находящейся в ОЗУ) в регистровую пару X

	ldi XL,	low(key_buff)		; младший байт адреса
	ldi XH,	high(key_buff)		; старший байт адреса

keyboardread_loop:			; цикл опроса

	out PortD,Temp1			; выводим в порт "Д" значение "Temp1" для выбора столбца клавиатуры
	in Temp2,PinB			; прочитали состояние столбца
         
	st X+,Temp2			; сохраним в ОЗУ состояние столбца клавы, 
 					; адрес в регстровой паре "X" автоматом увеличится на 1


	lsl Temp1			; сдвинули единичку выбора столбца клавиатуры на 1
 					; позицию влево

	dec temp			; уменьшим счетчик
	brne keyboardread_loop		; если не все просканировали, то циклимся

	ret				; возврат в главный цикл [1<]

       
;******************************************************************************************
; цикл проверки нажатия клавиатуры
;******************************************************************************************

certain_buttons_keyboard:
		

	ldi temp1,5			; УСТАНОВИМ СЧЕТЧИК столбцов клавы	

	                  		; загружаем адрес метки (key_buff) находящейся в ОЗУ в регистровую пару "Z"
	ldi ZL,low (key_buff)		; младший байт адреса
	ldi ZH,high(key_buff)		; старший байт адреса 


Certain_button:

	ld Temp,Z+			; загрузим данные в регистр из ОЗУ по адресу из регистровой пары "Z", 
					; и после этого адресс в регистровой паре автоматически увеличится на еденицу
	


	andi Temp, 0b11110000		; где "1" там кнопка, где "0" там кнопок нет - потому сбросим ! (маска) !!!!!!!!!!!!!!!!!!!!!!!

	cpi Temp,0b00000000		; проверяем, нажата ли какая ни будь кнопка?
	brne inform			; если нажата, то переходим на метку "inform" 


	dec temp1			; уменьшим счетчик столбцов клавы
	brne Certain_button		; если не все столбцы, то циклимся

metka:

	ret				; возврат в главный цикл [2<]



;***********************************************************************************************
; вывод информации о состоянии клавиатуры в порт "Б" 
;***********************************************************************************************

inform:					; здесь мы включаем таймер




	ldi Temp4,0b00000001		; включаем светодиод
	andi Temp4, 0b00000001		; где "1" там индикатор, где "0" там ни чего не выводить - потому сбросим ! (маска) 
	out PortB,Temp4





	;+++++++++++++++++++++++++++++++++++ установка вывода OC1A=0 

	ldi R16,(1<<COM1A1)|(0<<COM1A0)	; (то есть мы в "0" устанавливаем не вывод параллельного порта "B", а вывод таймера "OC1A")
	out TCCR1A,R16


	ldi R16,(1<<FOC1A)		; принудительно изменить состояние выходов OC1A и OC1B!!!
	out TCCR1C,R16 



	ldi R16,0b00000000		; теперь скинули TCCR1C
	out TCCR1C,R16 
	;+++++++++++++++++++++++++++++++++++
					

	ldi Temp,(1<<COM1A0)		; переключать ножку "OC1A" по совпадению (PB3- 15 ножка)
	out TCCR1A,Temp			; *1


	LDI R19,0xFF			; зададим фиксированную длительность импульса
	OUT OCR1AH,R19			; и выведем ее в порт сравнения
	LDI R19,0xFF
	OUT OCR1AL,R19       

	ldi Temp,0			; обнуление таймера 
	out TCNT1H,Temp
	out TCNT1L,Temp

	ldi Temp,(1<<wgm12)|(1<<cs10)	; подключили режим "CTC" (вместе с *1) 
	out TCCR1B,Temp			; и установили тактовый сигнал = CK 1:1 
					; таймер начал считать!!!

	ldi Temp,(1<<OCIE1A)		; разрешить прерывание компаратора 
	out TIMSK,Temp
	

	ldi R22, 0			; фаза передачи

loop_wait_transmitt:			; цикл ожидания завершения передачи

	cpi R22 , 7
	brne loop_wait_transmitt	; 

	Rjmp METKA			; возврат в главный цикл  (либо можно поставить второй ret[2<] )


;*******************************************************************************
;обработка прерывания
;*******************************************************************************

OCR1A_COMP:
					; первоначальное значение R22 - 0
					; таким образом сначала будет выполнена инициализации передачи

					; проверяем фазу работы прерывания




	in temp4,SREG			; сохраняем "SREG"/////////////////////////////////////////////////////
	push temp4


	CPI R22, 1
	BREQ transmitt_byte		; фаза передачи байта

	CPI R22, 2
	BREQ transmitt_bite_imp		; фаза передачи импульса бита в байте

	CPI R22, 3
	BREQ transmitt_bite_pause	; фаза передачи паузы бита в байте

	CPI R22, 4
	BREQ transmitt_imp_chetn	; фаза передачи импульса бита четности

	CPI R22, 5
	BREQ transmitt_pausa_chetn	; фаза передачи паузы бита четности

	CPI R22, 6
	BREQ transmitt_complete		; передача завершена, выключение прерываний


;****************************************************************************************************************

					; инициализация передачи, (при R22=0)



	ldi R21,0			; это будет счетчик единичек в передаче (четность)

	ldi yl,low(key_buff)		; зададим адрес начала массива прочитанных кнопок в ргистровую пару "Y"
	ldi yh,high(key_buff)

	ldi R17,5			; количество байт для передачи


transmitt_byte:				; фаза начала передачи - передача байта

 	ld temp,y+			; прочитаем байт для передачи, увеличим на единицу адрес в "Y" 

	ldi r18,8			; количество бит в байте для передачи






transmitt_bite_imp:			; фаза передачи импульса в передаваемом бите






	LDI R19 ,high(ImpLen)		; зададим фиксированную длительность импульса
	OUT OCR1AH, R19			; и выведем ее в порт сравнения
	LDI R19,low(ImpLen)   
	OUT OCR1AL ,R19       

	LDI  R22, 3			; в следующий раз передаем паузу




int_reti:


			

	pop temp4			; извлекаем "SREG" ////////////////////////////////////////////////////////////
	out SREG, temp4

	RETI				; точка выхода из прерывания


;**********************************************************************************************************************

transmitt_bite_pause:			; фаза передачи паузы в передаваемом бите

					; здесь кодируем импульс для бита


	LDI XL,low(Nullen)		; длительность для передачи нуля
	LDI XH,high(Nullen)

	ROL temp			; двигаем байт влево (циклический сдвиг влево)
	BRCC send_nullen		; если "С"=0 то записываем нулевую длительность

	
	LDI XL,low(onelen)		; длительность для передачи единицы
	LDI XH,high(onelen)

	INC R21				; если передаем единицу - увеличим счетчик единичек (четность) 

send_nullen:

	OUT OCR1AH,XH			; установим длительность
	OUT OCR1AL,XL         		; 
               
	LDI R22,2			; в следующий раз передадим импульс бита

	dec R18				; уменьшим счетчик бит на передачу
	brne int_reti			; если это непоследний бит в байте - то выход из прерывания

	LDI R22,1			; в следующий раз передадим новый байт

	dec R17				; уменьшим счетчик Байт для передачи
	brne int_reti			; если это не последний байт в массиве - то выход из прерывания
                   
	LDI R22,4			; в следующий раз передадим импульс бита четности

	RJMP int_reti			; выход из прерывания

;*********************************************************************************************************************                   


transmitt_imp_chetn:			; передача импульса бита четности





	
	LDI R19 ,high(ImpLen)		; зададим фиксированную длительность импульса
	OUT OCR1AH, R19			; и выведем ее в порт сравнения
	LDI R19,low(ImpLen)   
	OUT OCR1AL,R19       


	LDI R22,5			; в следующий раз передаем паузу бита четности

	rjmp int_reti			; выход из прерывания

;**********************************************************************************************************************


transmitt_pausa_chetn:			; передача паузы бита четности

					; здесь кодируем длительность паузы для бита четности







	LDI XL,low(Nullen)		; длительность паузы для передачи нуля
	LDI XH,high(Nullen)

	COM R21				; Побитная инверсия

	ROR R21				; Циклический сдвиг вправо

	BRCC send_chetn 		; если "С"=0 то записываем нулевую длительность

	LDI XL,low(onelen)		; длительность паузы для передачи единицы
	LDI XH,high(onelen)

send_chetn:

	OUT OCR1AH,XH			; установим длительность
	OUT OCR1AL,XL         

	LDI R22,6			; R22=6  ОТКЛЮЧЕНИЕ ПРЕРЫВАНИЯ
	rjmp int_reti			; выход из прерывания

;*************************************************************************************************************************

transmitt_complete:			; КОД ДЛЯ ОТКЛЮЧЕНИЯ ПРЕРЫВАНИЙ 



	ldi Temp,0b00000000		; установили тактовый сигнал = CK 0  
	out TCCR1B,Temp			; таймер выключен!!!



	;+++++++++++++++++++++++++++++++++++ установка вывода OC1A=0 

	ldi R16,(1<<COM1A1)|(0<<COM1A0)	; (то есть мы в "0" устанавливаем не вывод параллельного порта B, а вывод таймера OC1A)
	out TCCR1A,R16


	ldi R16,(1<<FOC1A)		; принудительно изменить состояние выходов OC1A и OC1B!!!
	out TCCR1C,R16 


	ldi R16,0b00000000		; теперь скинули TCCR1C????????????????????????????????????????????????????????????????????? 
	out TCCR1C,R16 
	;+++++++++++++++++++++++++++++++++++


	ldi Temp4,0b00000000		; выключаем светодиод
	andi Temp4, 0b00000001		; где "1" там индикатор, где "0" там ни чего не выводить - потому сбросим ! (маска) 
	out PortB,Temp4	


	
	LDI R22, 7			; Признак окончания передачи
	rjmp int_reti			; выход из прерывания	

;*************************************************************************************************************************