.include "m8515def.inc"
.def temp=R16
.def N1=R17
.def N2=R18
.def N =R19
.def K=R20
.def K1=R21
.def K2=R22

;macros zaderjki na vozrastanie t
;********************************
.macro Z
ldi N1,5
m:

mov N2,@0

m1:
nop
nop
nop
nop
dec N2
brne m1

dec N1
brne m
.endmacro
;********************************

;macros zaderjki const
;********************************
.macro Z1
ldi K1,5

n:

ldi K2,5

n1:
nop
nop
nop
nop
dec K2
brne n1

dec K1
brne n
.endmacro
;********************************

;osnovnaya programma

ldi K, 5
ldi N,255

end:

m2:
ser temp
out ddrb, temp
ldi temp, $FF
out portb,temp
Z k
ldi temp, $0
out portb, temp
Z1
add K, K
subi N, 15
brne m2
rjmp end





Чтобы не видеть здесь видео-рекламу достаточно стать зарегистрированным пользователем.
Чтобы не видеть никакую рекламу на сайте, нужно стать VIP-пользователем.
Это можно сделать совершенно бесплатно. Читайте подробности тут.