Mon petit Hello Wolrd avec le starter kit STK500 d'Atmel

Mon petit Hello Wolrd avec le starter kit STK500 d'Atmel

;***** STK500 LEDS and SWITCH demonstration
.include "tn45def.inc"
.def Temp =r16 ; Temporary register
.def Delay =r17 ; Delay variable 1
.def Delay2 =r18 ; Delay variable 2
;***** Initialization
RESET:
setup_stack:

    ldi r16, LOW(RAMEND)        ;Setup of stack pointer
    ldi r17, HIGH(RAMEND)
    out SPL, r16
    out SPH, r17

;	ser	Temp
;	out	DDRB,Temp		; Set PORTB to output
;	ser	Temp			; tout a 1
;	out	PORTB,temp		; Update LEDS


	sbi DDRB,0			; Set PORTB bit 0 to output




LOOP:

;	ser	Temp			; tout a 1
;	sbr	Temp,1			; 
;	out	PORTB,temp		; Update LEDS

	sbi	PORTB,0			; Set PORTB bit 0



	rcall DLY1

;	clr	Temp			; tout a 0
;	cbr	Temp,1			; 
;	out	PORTB,temp		; Update LEDS

	cbi PORTB,0			; Clear PORTB bit 0

	rcall DLY1

	rjmp	LOOP			; Repeat loop forever


DLY1:
	ldi Delay2, 0
DLY2:
	nop
	nop
	nop
	dec	Delay
	brne	DLY2
	dec	Delay2
	brne	DLY2
	ret

 (c) 2007 www.zufferey.com