;Huhúúú Assembleres atmega128-as ledvillogtatósososs
; Szenvedte : .:: MaSTeRFoXX ::.


;Asembly teszt program 
; 
;Processzor megadása 
.nolist 
.include "m128def.inc" 
.list 


;regiszterek megadása 
.def var1=r16 
.def var2=r17
.def temp=r18 

   rjmp RESET 

;főperogram 
RESET:     
      ldi   var1,LOW(RAMEND) ;Initiate Stackpointer 
      out   SPL,var1 
      ldi   var1,HIGH(RAMEND) 
      out   SPH,var1 


      ldi temp,0xff   ;255 a tempbe 
      out DDRD, temp   ;portd legyen kimenet 
	  ldi temp,0xff
	  out DDRE, temp	;porte legyen kimenet
start:   rcall kesl         ;késleltetés 
   ser temp         ;temp legyen 255 
   OUT PORTD,temp      ;PORTD legyen 255 
   ser temp
   out porte,temp ;Porte legyen 255
   rcall kesl         ;késleltetés 
   clr temp         ;temp legyen 0 
   out PORTD,temp      ;PORTD legyen 0
   clr temp
   out PORTE,temp 
   rjmp start         ;ugorj vissza az elejére 

kesl: 
   nop   ;ide még jön  a késleltetés 
   ser var1
   ser var2
kesl2:
   dec var1
   brne kesl2
   dec var2
   brne kesl2 

   ret