.include "D:\avr\avrasm\appnotes\tn2313def.inc" 

.def     Temp=R16
.def     Temp1=R17
.def     Temp2=R18
.def     Temp3=R19
.def     Temp4=R20

.def   	Temp5=R21
.def	Temp6=R22
.def	Temp7=R23
.def	Temp8=R24
.def	Temp9=R25

.cseg
.org 0

          ldi Temp,RamEnd       ;инициализация стека
          out SPL,Temp
          
          ldi Temp,0b11111111   ;настройка портов
          out DDRB,Temp
	  
	  ldi Temp5,0b11111111   ;настройка портов
          out DDRD,Temp5
         
          

Label:
           out portb,temp
          
      
          ldi Temp,0b10110111   ;вывод на индикацию
          rcall Delay           ;вызов подпрограммы задержки
               
             
      
          ldi Temp,0b10101001   ;вывод на индикацию
          rcall Delay           ;вызов подпрограммы задержки
               
               
         
          ldi Temp,0b00000000   ;вывод на индикацию
          rcall Delay           ;вызов подпрограммы задержки
               
rjmp Label         
          

;****************************************************
;Задержка

Delay:    out PortB,Temp

          ldi Temp1,50
          ldi Temp2,50
          ldi Temp2,5
          
          

Loop:     dec Temp1
          brne Loop1

          dec Temp2
          brne Loop

          dec Temp3
          brne Loop

          ret

;++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
Label2:        
          out portd,temp5
          

   
          ldi Temp5,0b00100010   ;вывод на индикацию
          rcall Delay2           ;вызов подпрограммы задержки
          
          ldi Temp5,0b10101101   ;вывод на индикацию
          rcall Delay2           ;вызов подпрограммы задержки
          
          ldi Temp5,0b00101000   ;вывод на индикацию
          rcall Delay2           ;вызов подпрограммы задержки
          
          ldi Temp5,0b11011011   ;вывод на индикацию
          rcall Delay2           ;вызов подпрограммы задержки
          




                  
         
rjmp Label2          


Delay2:   out Portd,Temp5

          ldi Temp6,50
          ldi Temp7,50
          ldi Temp8,5
          
          

Loop2:     dec Temp6
          brne Loop2

          dec Temp7
          brne Loop2

          dec Temp8
          brne Loop2

          ret