Форум РадиоКот

Код: Выделить всё

.device ATmega8515
.nolist
.include "C:\Program Files\Atmel\AVR Tools\AvrAssembler2\Appnotes\m8515def.inc"
.list

;=================
;Объявления:

.def temp=r16
.def Delay1=r17
.def Delay2=r18
.def Delay3=r19
.def temp2=r20
;=================
;Начало программы

rjmp Init

;=================
Init:
   ldi temp, 0b1111111         ;Определяем входы и выходы порта В
   out DDRA, temp              ;
   
   
   
;=================
;Основное тело программы
Start:
   ldi temp, 0b00000001
   out PortA, temp
   ldi temp2, 6
   Wait_Run3_1:
      rcall Wait
      dec temp2
      brne Wait_Run3_1
   
   ldi temp, 0b00000000
   out PortA, temp
   ldi temp2, 6
   Wait_Run3_2:
      rcall Wait
      dec temp2
      brne Wait_Run3_2
   rjmp Start
;задержка на доли секунды
Wait:
   clr Delay1
   ldi Delay2,0x30
   ldi Delay3,0x00
Loop:
   subi Delay1,1
   sbci Delay2,0
   sbci Delay3,0
   brcc Loop
   ret