This repository has been archived on 2019-08-09. You can view files and clone it, but cannot push or open issues or pull requests.
s6-up-tp/TP1/TP12.asm

92 lines
1.6 KiB
NASM
Raw Normal View History

2017-05-02 14:57:54 +02:00
.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