Isr г9 /сдзиг зправо

ror tmp2 /сдзиг зправо через перенос

Isr г9 /сдвиг зправо

ror tmp2 /сдзиг зправо через перенос

clr г9

clc

/для старшего байта

add tmp3, гЗ /сложение с предыдущим

adc г9, г8 /сложение с переносом

add tmp3, г5 /сложение с предыдущим

adc г9, г8 /сложение с переносом

add tmp3, г7 /сложение с предыдущим

Глаза 7

Листинг 7.1. Продолжение

adc г9, г8 ;сложение с переносом clc

Isr r9 ;сдзиг зпразо

ror tmp3 ;сдзиг зпразо через перенос

Isr г9 ;сдвиг зпразо

ror tmp3 ;сдвиг впразо через перенос

пор ;младший байт tmp2, старший tmp3

ret

.•подпрограмма АЦП2, настройка АЦП2 adcn2: пор пор

clr tmp awew: пор

cpi tmp,  ;считывание АЦП 4-раза

brsh assw ;более 4-х раз

пор

out ADMUX, tmp2 /коммутация зходоз АЦП

clr tmp2

clr tmp3

ldi tt2, $C5 /одиночное, запуск, 1/32

out ADCSR, tt2 ;запуск АЦП на преобразование

;Сохранение данных АЦП

in tmp2, ADCL ;чтение младшего байта АЦП

in tmp3, ADCH ;чтение старшего байта АЦП

mov r2, tmp2 ;запомнить зременно

mov гЗ, tmp3 ;запомнить зременно

mov г4, г2 /запомнить зременно

mov г5, гЗ /запомнить зременно

mov гб, г4 /запомнить зременно

mov г7, г5 /запомнить зременно

inc tmp /увеличить на 1

rjmp awew

/среднее арифметическое дейстзие

assw: пор

clr г8

/для младшего байта

clc /сброс флага переноса

add tmp2, г2 /сложение с предыдущим

adc г9, г8 /сложение с переносом

add tmp2, г4 /сложение с предыдущим

adc г9, г8 /сложение с переносом

add tmp2, гб /сложение с предыдущим

adc г9, г8 /сложение с переносом clc

Isr г9 /сдвиг зпразо

ror tmp2 /сдзиг зпразо через перенос

Световой эффект "Призма"

159

Листинг 7.1. Продолжение

;Подпрограмма опроса светодиодов opros: пор пор

progo: пор

.•Первая подпрограмма светоэффектов

cpi pir, content>С пор

breq ргп2

ldi ZH, high (2*progl)