ldi ZL, Low(2*progl)

Add ZL, pir LPM

mov prgl, adr

;включение верхней половины схемы сзетодиодов

out PORTC, prgl nop

ldi ZH, high(2*prog2)

ldi ZL, Low(2*prog2)

Add ZL, pir LPM

mov prgl, adr

.•Включение нижней половины схемы сзетодиодов

out PORTD, prgl nop

ldi ZH, high(2*prog3)

ldi ZL, Low(2*prog3)

Add ZL, pir LPM

160

Глава 7

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

mov prgl, adr

.•Включение привода дзигателя

out PORTB, prgl nop

inc pir

inc tempo nop

prn2: nop

/Вторая подпрограмма сзетоэффектоз

cpi pur, content>C nop

breq prn3

ldi ZH, high(2*prog4)

ldi ZL, Low(2*prog4)

Add ZL, pur

LPM

mov prg2, adr

;Включение верхней полозина схемы сзетодиодов

out PORTC, prg2 nop

ldi ZH, high(2"prog5)

ldi ZL, Low(2*prog5)

Add ZL, pur LPM

mov prgl, adr

;Включение нижней половины схемы сзетодиодоз

out PORTD, prgl nop

ldi ZH, high (2*prog6)

ldi ZL, Low(2*prog6)

Add ZL, pur LPM

mov prgl, adr

.•Включение привода дзигателя

out PORTB, prgl nop

inc pur

dec tempo nop

prn3: nop

.•Третья подпрограмма сзетоэффектоз

cpi par, content>C nop

breq prn4

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

161

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

ldi ZH, high(2*prog7) ldi ZL, Low(2*prog7) Add ZL, par LPM

mov prg2, adr ;Включение зерхней половины схемы светодиодов out PORTC, prg2 nop

ldi ZH, high(2*prog8) ldi ZL, Low(2*prog8) Add ZL, par LPM

mov prgl, adr ;Включение нижней половины схемы светодиодов out PORTD, prgl nop

ldi ZH, high(2*prog9) ldi ZL, Low(2*prog9) Add ZL, par LPM

mov prgl, adr .•Включение привода двигателя out PORTB, prgl nop

inc £ prn4: nop ret

.org 0 progl:

.DB , content>, .DB , ,

prog2:

.DB content>F, C, .DB content>, content>,

prog3:

.DB , content>, .DB content>, content>,

prog4:

.DB content>, content>, .DB , ,

par

, content>, , , , ,

, , $E0, $C0, content>, content> content>,

, content>, , content>, , content>, content>

, , , , , ,

prog5:

162

Глава 7

Листинг 7.1. Окончание

.EXIT