92 lines
1.6 KiB
NASM
92 lines
1.6 KiB
NASM
.equ PINA = 0x00 ; définition des adresses des ports
|
|
.equ DDRA = 0x01
|
|
.equ PORTA = 0x02
|
|
.equ PINC = 0x06
|
|
.equ DDRC = 0x07
|
|
.equ PORTC = 0x08
|
|
|
|
.equ RAMEND = 0x21FF
|
|
.equ SPH = 0x3E ; initialisation de la pile
|
|
.equ SPL = 0x3D
|
|
|
|
.def compteur = r20
|
|
.def seg = r21
|
|
|
|
.org 0x000
|
|
; Vecteur RESET
|
|
jmp debut
|
|
|
|
.org 0x0080
|
|
|
|
afficheur:
|
|
.DB 0x7E, 0x0C, 0x37, 0x9F, 0x4D, 0xDB, 0xFB, 0x0E, 0xFF, 0xDF
|
|
;.DB 0x7E, 0x30, 0x6D, 0x79, 0x33, 0x5B, 0x5F, 0x70, 0x7F, 0x7B
|
|
; 0, 1, 2, 3, 4, 5, 6, 7, 8, 9
|
|
|
|
|
|
debut:
|
|
ldi r16,0xFF ; config direction ports
|
|
out DDRA,r16
|
|
out DDRC,r16
|
|
|
|
ldi r16,0x40 ; On sélectionne l'afficheur du millieu
|
|
out PORTC,r16
|
|
; compteur <- 0
|
|
LDI R16,0
|
|
STS compteur,R16
|
|
|
|
|
|
|
|
boucle:
|
|
|
|
; On affiche compteur sur le 7 segments
|
|
; seg <- afficheur@ROM[compteur]
|
|
LDS R16,compteur
|
|
LDI R30,low(afficheur<<1)
|
|
LDI R31,high(afficheur<<1)
|
|
CLR R17
|
|
ADD R30,R16
|
|
ADC R31,R17
|
|
LPM R16,Z
|
|
STS seg,R16
|
|
|
|
out porta,seg
|
|
|
|
; On incrémente compteur
|
|
inc compteur
|
|
; si compteur > 9 alors compteur <- 0
|
|
LDS R16,compteur
|
|
PUSH R16
|
|
LDI R16,9
|
|
POP R17
|
|
CP R17,R16
|
|
BREQ eti0
|
|
BRLO eti0
|
|
LDI R16,0x01
|
|
RJMP eti1
|
|
eti0:
|
|
CLR R16
|
|
eti1:
|
|
TST R16
|
|
BREQ eti2
|
|
LDI R16,0
|
|
STS compteur,R16
|
|
eti2:
|
|
|
|
|
|
; On attend et on recommence
|
|
call tempo
|
|
; saut boucle
|
|
JMP boucle
|
|
|
|
|
|
tempo:
|
|
ldi r24,8
|
|
tempoA:
|
|
subi r22,1
|
|
sbci r23,0
|
|
sbci r24,0
|
|
brcc tempoA
|
|
ret
|
|
|