52 lines
1 KiB
PkgConfig
52 lines
1 KiB
PkgConfig
.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 = r16
|
|
|
|
.org 0x000
|
|
; Vecteur RESET
|
|
jmp debut
|
|
|
|
.org 0x0080
|
|
|
|
.afficheur:
|
|
.DB 0x7E, 0x30, 0x6D, 0x79, 0x33, 0x5B, 0x5F, 0x70, 0x7F, 0x7B
|
|
; 0, 1, 2, 3, 4, 5, 6, 7, 8, 9
|
|
|
|
|
|
debut:
|
|
ldi r16,0x00 ; config direction ports
|
|
out DDRA,r16
|
|
out DDRC,r16
|
|
r16 <- 0x00
|
|
|
|
boucle:
|
|
; pause
|
|
ldli r24,8
|
|
tempo:
|
|
subi r22,1
|
|
sbci r23,0
|
|
sbci r24,0
|
|
|
|
bbrc tempo
|
|
jump boucle
|
|
; On décale vers la gauche port A
|
|
lsr r16
|
|
; Tant que la chenille est toujours dans le port A, on continue
|
|
si r16 > 0 saut boucle
|
|
; si elle dépasse, alors on la met sur le début du port B
|
|
si r17 = 0 alors r17 <- 0x01
|
|
lsr r17
|
|
; si elle dépasse, on la remet dans le port A
|
|
si r17 = 0 alors r16 <- 0x01
|
|
|
|
saut boucle
|