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

.macro Z
ldi N1,5
m:
;*********
mov N2,@0

m1:
nop
nop
nop
nop
dec N2
brne m1
;*********
dec N1
brne m
.endmacro

.macro Z1
ldi K1,5

n:

ldi K2,5

n1:
nop
nop
nop
nop
dec K2
brne n1

dec K1
brne n
.endmacro

ldi K, 3
ldi N, 5

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
dec N
brne m2
rjmp end





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