;
; Auto_Afficheur_7_Segments.asm
;
; Created: 14/02/2021 15:46:02
; Author : Christian
;

		.CSEG
motifs:	.DB $c0, $f9, $a4, $b0, $99, $92, $82, $f8, $80, $90
		nop

; Initialisation des entrées-sorties
	ldi r17, 0b11111111
	out DDRD, r17		; lignes en sortie

; Début de programme
start:
	ldi ZL, 0		; low byte Z-Register (R30)
	ldi ZH, 0		; high byte Z-Register (R31)
	ldi r18, 10		; nombre de motifs
loop_motif:
	lpm r20, Z+		; charge R20 avec motif pointé par Z
				; puis incrémente Z
	out PORTD, r20	; copie R20 sur PORT D
	rcall delay		; attente 1 s
	dec r18			; un motif de moins restant à faire
	brne loop_motif	; passe au motif suivant si R18 non nul
	rjmp start		; séquence recommence

delay:				; SBR attente
	ldi r16, 81		; réglé pour une seconde
	clr r8
	clr r9
loop:
	dec r8
	brne loop
	dec r9
	brne loop
	dec r16
	brne loop
	ret