Разработка программного обеспечения

include «m8def.inc» //подключить библиотеку.

org 0.

rjmp reset //перейти к началу программы.

//++++++++++ таблица вектаров прерывания ++++++++++++++++++++++++++++++++++++++++++.

.org 1 nop //rjmp EXT_INT0;

.org 2 nop //rjmp EXT_INT1;

.org 3 nop //rjmp TIM2_COMP;

.org 4 rjmp TIM2_OVF;

.org 5 nop //rjmp TIM1_CAPT;

.org 6 rjmp TIM1_COMPA;

.org 7 nop //rjmp TIM1_COMPB.

.org 8 nop //rjmp TIM1_OVF.

.org 9 nop //rjmp TIM0_OVF;

.org 10 nop //rjmp SPI_STC;

.org 11 nop //rjmp USART_RXC;

.org 12 nop //rjmp USART_UDRE;

.org 13 nop //rjmp USART_TXC;

.org 14 nop //rjmp ADC;

.org 15 nop //rjmp EE_RDY;

.org 16 nop //rjmp ANA_COMP;

.org 17 nop //rjmp TWI;

.org 18 nop //rjmp SPM_RDY;

//+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++.

reset:

//************** начальные установки **********************************************.

ldi r19, high (RAMEND) //определить верхний адрес стека.

out sph, r19 //установить верхний адрес стека.

ldi r19, low (RAMEND) //определить нижний адрес стека.

out spl, r19 //установить нижний адрес стека.

ldi r16,0xfc.

out ddrc, r16 //установить выводы порта C.

ldi r16,0xDf.

out ddrd, r16 //установить выводы порта D.

ldi r16,0xff.

out ddrb, r16 //установить выводы порта B.

ldi r16,0×04.

out pinc, r16 //установить выводы порта C в еденичный уровень.

ldi r16,0×01.

out pinb, r16 //установить выводы порта B.

ldi r17,0.

mov r0, r17 //начальная установка счетного регистра едениц.

mov r1, r17 //начальная установка счетного регистра десятков.

mov r2, r17 //начальная установка счетного регистра сотен.

mov r3, r17 //начальная установка счетного регистра тысяч.

mov r4, r17 //начальная установка счетного регистра десятков тысяч.

mov r5, r17 //начальная установка счетного регистра сотен тысяч.

mov r6, r17 //начальная установка счетного регистра милионов.

mov r7, r17 //начальная установка счетного регистра счетчика переодов времени.

inc r7.

ldi r19,0 //начальная установка регистра индикации десятичной доли.

ldi r17,1.

mov r10, r17 //начальная установка режима измерения (точность 1 Гц).

//******************* настройка прерывания по таймеру1 *********************************************.

ldi r17,(0<<

out TIMSK, r17 //разрешить прерывание таймера/счетчика Т1.

ldi r17,(0<<<<<

out TCCR1A, r17 //режим работы таймера Т1 — normal.

ldi r17,(0<<<<<<<

out TCCR1B, r17 //тактирование производится от внешнего источника.

ldi r17,0 //очистить старший байт счетчика таймера 1.

out TCNT1H, r17.

ldi r17,0 //очистить младший байт счетчика таймера 1.

out TCNT1L, r17.

ldi r17,0×00 //значения заносимые в старший байт времени срабатывания прерывания таймера Т1.

out OCR1AH, r17 //установить старший байт времени срабатывания прерывания таймера Т1.

ldi r17,0×09 //значения заносимые в младший байт времени срабатывания прерывания таймера Т1.

out OCR1AL, r17 //установить младший байт времени срабатывания прерывания таймера Т1.

sei.

//*************************************************************************************************.

//******************* настройка прерывания по таймеру2 *********************************************.

ldi r17,(0<<<<

out TIMSK, r17 //разрешить прерывание таймеров/счетчиков Т2 и T1.

ldi r17,(0<<<<<<<<

out TCCR2, r17 //режим работы таймера Т1 — normal (CS), clk/1024(WGM), таймер отключен от OC2(COM).

ldi r17,(0<

out ASSR, r17 //синхронный режим.

ldi r17,244 //значения заносимые в байт времени срабатывания прерывания таймера Т2.

out OCR2, r17 //установить байт времени срабатывания прерывания таймера Т2.

ldi r17,24 //очистить счетчика таймера 2.

out TCNT2, r17.

sei.

//*************************************************************************************************.

//************ основной цикл программы ************************************************************.

cycle:

ldi r16,0b10000000 //зажечь 1-ый разряд индикатора.

out PORTD, r16.

mov r16, r19 //занести в буфер значение десятичной доли.

rcall write_symbol_7SEG //вывести значение на 7-ми сегментный индикатор

rcall delay_20ms //установить задержку.

ldi r16,0b01000000 //зажечь 2-ой разряд индикатора.

out PORTD, r16.

mov r16, r20 //занести в буфер значение едениц.

rcall write_symbol_7SEG //вывести значение на 7-ми сегментный индикатор

sbrc r10,1 //если выбрана точность 1 Гц выполнить след операцию.

cbi PORTB, 7 //погасить точку после разряда единиц.

sbrc r10,0 //если выбрана точность 0,1 Гц выполнить след операцию.

sbi PORTB, 7 //зажечь точку после разряда единиц.

rcall delay_20ms //установить задержку.

ldi r16,0b00010000 //зажечь 3-ий разряд индикатора.

out PORTD, r16.

mov r16, r21 //занести в буфер значение сотен.

rcall write_symbol_7SEG //вывести значение на 7-ми сегментный индикатор

rcall delay_20ms //установить задержку.

ldi r16,0b00001000 //зажечь 4-ый разряд индикатора.

out PORTD, r16.

mov r16, r22 //занести в буфер значение тысяч.

rcall write_symbol_7SEG //вывести значение на 7-ми сегментный индикатор

rcall delay_20ms //установить задержку.

ldi r16,0b00000100 //зажечь 5-ый разряд индикатора.

out PORTD, r16.

mov r16, r23 //занести в буфер значение десятков тысяч.

rcall write_symbol_7SEG //вывести значение на 7-ми сегментный индикатор

rcall delay_20ms //установить задержку.

ldi r16,0b00000010 //зажечь 6-ой разряд индикатора.

out PORTD, r16.

mov r16, r24 //занести в буфер значение сотен тысяч.

rcall write_symbol_7SEG //вывести значение на 7-ми сегментный индикатор

rcall delay_20ms //установить задержку.

ldi r16,0b00000001 //зажечь 7-ой разряд индикатора.

out PORTD, r16.

mov r16, r25 //занести в буфер значение миллионов.

rcall write_symbol_7SEG //вывести значение на 7-ми сегментный индикатор

rcall delay_20ms //установить задержку.

sbis PINC, 0 //проверить нажата ли кнопка1, если вывод 0 порта С = 0 — нажата.

rcall KNOPKA₁.

sbis PINC, 1 //проверить нажата ли кнопка2, если вывод 1 порта С = 0 — нажата.

rcall KNOPKA₂.

rjmp cycle //зациклить программу.

KNOPKA₁:

sbis PINC, 0 //задержка выполнения подпрограммы до отжатия кнопки 1.

rjmp KNOPKA₁ //зациклить.

ldi r17,1 //установить точность работы частотомера 1 Гц.

mov r10, r17.

sbi PORTC, 2 //зажечь светодиод 1.

cbi PORTC, 3 //погасить светодиод 2.

ldi r19,0 //сбросить разряд едениц.

ldi r20,0 //сбросить разряд десятков.

ldi r21,0 //сбросить разряд сотен.

ldi r22,0 //сбросить разряд тысяч.

ldi r23,0 //сбросить разряд десятков тысяч.

ldi r24,0 //сбросить разряд сотен тысяч.

ldi r25,0 //сбросить разряд миллионов.

ldi r26,0 //сбросить разряд.

ret.

KNOPKA₂:

sbis PINC, 1 //задержка выполнения подпрограммы до отжатия кнопки 2.

rjmp KNOPKA₂ //зациклить.

ldi r17,2 //установить точность работы частотомера 0,1 Гц.

mov r10, r17.

sbi PORTC, 3 //зажечь светодиод 2.

cbi PORTC, 2 //погасить светодиод 1.

ldi r19,0 //сбросить разряд десятых долей.

ldi r20,0 //сбросить разряд едениц.

ldi r21,0 //сбросить разряд десятков.

ldi r22,0 //сбросить разряд сотен.

ldi r23,0 //сбросить разряд тысяч.

ldi r24,0 //сбросить разряд десятков тысяч.

ldi r25,0 //сбросить разряд сотен тысяч.

ldi r26,0 //сбросить разряд миллионов.

ret.

TIM1_COMPA:

inc r0 //инкрементировать счетчик едениц.

mov r17, r0.

subi r17,10 //проверка переполнения разряда.

brcc dec_inc //переход по переносу, C = 1.

rjmp end_TIM1_COMPA //перейти на конец потпрограммы.

dec_inc:

inc r1 //инкрементировать счетчик десятков.

ldi r17,0.

mov r0, r17 //сбросить разряд едениц.

mov r17, r1.

subi r17,10 //проверка переполнения разряда.

brcc sot_inc //переход по переносу, C = 1.

rjmp end_TIM1_COMPA //перейти на конец потпрограммы.

sot_inc:

inc r2 //инкрементировать счетчик сотен.

ldi r17,0.

mov r1, r17 //сбросить разряд десяткав.

mov r17, r2.

subi r17,10 //проверка переполнения разряда.

brcc tis_inc //переход по переносу, C = 1.

rjmp end_TIM1_COMPA //перейти на конец потпрограммы.

tis_inc:

inc r3 //инкрементировать счетчик тысяч.

ldi r17,0.

mov r2, r17 //сбросить разряд сотен.

mov r17, r3.

subi r17,10 //проверка переполнения разряда.

brcc edn_tis_inc //переход по переносу, C = 1.

rjmp end_TIM1_COMPA //перейти на конец потпрограммы.

edn_tis_inc:

inc r4 //инкрементировать счетчик десятков тысяч.

ldi r17,0.

mov r3, r17 //сбросить разряд тысяч.

mov r17, r4.

subi r17,10 //проверка переполнения разряда.

brcc dec_tis_inc //переход по переносу, C = 1.

rjmp end_TIM1_COMPA //перейти на конец потпрограммы.

dec_tis_inc:

inc r5 //инкрементировать счетчик сотен тысяч.

ldi r17,0.

mov r4, r17 //сбросить разряд десятков тысяч.

mov r17, r5.

subi r17,10 //проверка переполнения разряда.

brcc sot_tis_inc //переход по переносу, C = 1.

ldi r17,0.

mov r6, r17 //сбрость разряд миллионов.

rjmp end_TIM1_COMPA //перейти на конец потпрограммы.

sot_tis_inc:

ldi r17,1 //установить в еденицу расряд миллионов.

mov r6, r17.

ldi r17,0.

mov r5, r17 //сбросить разряд сотен тысяч.

end_TIM1_COMPA:

ldi r17,0 //очистить старший байт счетчика таймера 1.

out TCNT1H, r17.

ldi r17,0 //очистить младший байт счетчика таймера 1.

out TCNT1L, r17.

reti.

//———-;

//подпрограмма обработки прерывания таймера2.

TIM2_OVF:

sbrc r10,0 //если выбрана точность 1 Гц выполнить след операцию.

rjmp accuracy_1Hz //перейти на код счета времени 1 с.

sbrc r10,1 //если выбрана точность 0,1 Гц выполнить след операцию.

rjmp accuracy_01Hz //перейти на код счета времени 10 с.

accuracy_01Hz:

inc r7 //инкрементировать счетчик периодов.

mov r17, r7.

subi r17,160 //проверка окончания 10 с (160 периодов).

brcc save_fr01 //переход по переносу, C = 1.

ldi r17,0.

out TCNT2, r17 //очистить счетчика таймера 2.

reti //выйти из прерывания.

save_fr01:

in r19, TCNT1L //копировать значение счетчика1 в разряд дес долей.

mov r20, r0 //копировать значение счетчика едениц в разряд едениц.

mov r21, r1 //копировать значение счетчика десятков в разряд десятков.

mov r22, r2 //копировать значение счетчика сотен в разряд сотен.

mov r23, r3 //копировать значение счетчика тысяч в разряд тысяч.

mov r24, r4 //копировать значение счетчика дес тыс в дес тыс.

mov r25, r5 //копировать значение счетчика сотен тыс в разряд сотен тыс.

mov r26, r6 //копировать значение счетчика миллионов в разряд миллионов.

ldi r17,0.

mov r0, r17 //начальная установка счетного регистра едениц.

mov r1, r17 //начальная установка счетного регистра десятков.

mov r2, r17 //начальная установка счетного регистра сотен.

mov r3, r17 //начальная установка счетного регистра тысяч.

mov r4, r17 //начальная установка счетного регистра десятков тысяч.

mov r5, r17 //начальная установка счетного регистра сотен тысяч.

mov r6, r17 //начальная установка счетного регистра милионов.

mov r7, r17 //начальная установка счетного регистра счетчика переодов времени.

ldi r17,244 //значения заносимые байт времени срабатывания прерывания таймера Т2.

out OCR2, r17 //установить байт времени срабатывания прерывания таймера Т2.

ldi r17,0 //очистить счетчика таймера 1.

out TCNT1H, r17.

ldi r17,0 //очистить счетчика таймера 1.

out TCNT1L, r17.

ldi r17,23 //занести значение в счетчик таймера2.

out TCNT2, r17.

reti //выйти из прерывания.

accuracy_1Hz:

inc r7 //инкрементировать счетчик периодов.

mov r17, r7 //проверка окончания 1 с (16 периодов).

subi r17,16.

brcc save_fr1 //переход по переносу, C = 1.

ldi r17,0.

out TCNT2, r17 //очистить счетчика таймера 2.

reti //выйти из прерывания.

save_fr1:

in r19, TCNT1L //копировать значение счетчика едениц в разряд едениц.

mov r20, r0 //начальная установка счетного регистра десятков.

mov r21, r1 //копировать значение счетчика сотен в разряд сотен.

mov r22, r2 //копировать значение счетчика тысяч в разряд тысяч.

mov r23, r3 //копировать значение счетчика дес тыс в дес тыс.

mov r24, r4 //копировать значение счетчика сотен тыс в разряд сотен тыс.

mov r25, r5 //копировать значение счетчика миллионов в разряд миллионов.

mov r26, r6.

ldi r17,0.

mov r0, r17 //начальная установка счетного регистра едениц.

mov r1, r17 //начальная установка счетного регистра десятков.

mov r2, r17 //начальная установка счетного регистра сотен.

mov r3, r17 //начальная установка счетного регистра тысяч.

mov r4, r17 //начальная установка счетного регистра десятков тысяч.

mov r5, r17 //начальная установка счетного регистра сотен тысяч.

mov r6, r17 //начальная установка счетного регистра милионов.

mov r7, r17 //начальная установка счетного регистра счетчика переодов времени.

ldi r17,244 //значения заносимые байт времени срабатывания прерывания таймера Т2.

out OCR2, r17 //установить байт времени срабатывания прерывания таймера Т2.

ldi r17,0 //очистить счетчика таймера 1.

out TCNT1H, r17.

ldi r17,0 //очистить счетчика таймера 1.

out TCNT1L, r17.

ldi r17,13 //занести значение в счетчик таймера2.

out TCNT2, r17.

reti.

//—————————;

/////////// подпрограмма задержки на 10 циклов //////////////////////////////////////////////.

delay₁₀:

ldi r21,10 //установить время задержки.

ldi r20,0 //сбросить счетчик задержки.

inc₁₀:

inc r20 //инкрементировать счетчик задержки.

cpse r20, r21 //сравнить время и счетчик задержки.

rjmp inc₁₀ //вернуться инкрементированию счетчика (r20.

ret.

////// Процедура задержки ////////.

delay_100ms:

; =============================.

; delay loop generator.

; 1 600 000 cycles:

; ——————————————;

; delaying 1 599 999 cycles:

ldi R22, $f1.

WGLOOP0₁₀₀: ldi R23, $ 1E.

WGLOOP1₁₀₀: ldi R24, $ 0D.

WGLOOP2₁₀₀: dec R24.

brne WGLOOP2₁₀₀.

dec R23.

brne WGLOOP1₁₀₀.

dec R22.

brne WGLOOP0₁₀₀.

; ——————————————;

; delaying 1 cycle:

nop.

; =============================.

ret.

////// Процедура задержки ////////.

delay_20ms:

; =============================.

; delay loop generator.

; 1 600 000 cycles:

; ——————————————;

; delaying 1 599 999 cycles:

ldi R27, $ 11.

WGLOOP0₂₀: ldi R28, $ 11.

WGLOOP1₂₀: ldi R29, $ 0D.

WGLOOP2₂₀: dec R29.

brne WGLOOP2₂₀.

dec R28.

brne WGLOOP1₂₀.

dec R27.

brne WGLOOP0₂₀.

; ——————————————;

; delaying 1 cycle:

nop.

; =============================.

ret.

/////////// подпрограмма перевода шеснадцатиричного числа в двоично-десятичное //////////////.

hex_to_binary_decimal:

ldi r19,0.

mov r20, r18.

div₁₀:

subi r20,10.

brcs div₁₀_end //переход по переносу, C = 1.

inc r19.

rjmp div₁₀.

div₁₀_end:

subi r20,246.

mov r18, r20.

ret.

write_symbol_7SEG:

// ldi r17,0×00.

ldi zl, 0×00 //установить младший разряд для чтения таблицы.

ldi zh, 0×04 //установить старший разряд для чтения таблицы.

clc //сброс флага переноса заема C = 0.

adc zl, r16 //прибавить адрес текущего символа к начальному адресу таблицы.

lpm r16, z //копировать код символа в буфер

out PORTB, r16 //вывести код символа в порт.

ret.

org 512.

db 0b11000000/*0*/, 0b11111001/*1*/, 0b10100100/*2*/, 0b10110000/*3*/, 0b10011001/*4*/, 0b10010010/*5*/,.

0b10000010/*6*/, 0b11111000/*7*/, 0b10000000/*8*/, 0b10010000/*9*/.