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/TP11.asm

111 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 PINB = 0x03
.equ DDRB = 0x04
.equ PORTB = 0x05
.equ RAMEND = 0x21FF
.equ SPH = 0x3E ; initialisation de la pile
.equ SPL = 0x3D
.org 0x000
; Vecteur RESET
jmp debut
.org 0x0080
debut:
ldi r16,0xFF ; config direction ports
out DDRA,r16
out DDRB,r16
; r17 <- 0x01 ; 8 places de chenillard
LDI R16,0x01
MOV R17,R16
boucleA:
; On affiche l'état courant
out porta,r17
call tempo
; On calcule l'état suivant
lsl r17
; si r17 > 0 saut boucleA
MOV R16,R17
PUSH R16
LDI R16,0
POP R17
CP R17,R16
BREQ eti0
BRLO eti0
LDI R16,0x01
RJMP eti1
eti0:
CLR R16
eti1:
TST R16
BREQ eti2
JMP boucleA
eti2:
out porta,r17
; r17 <- 0b10000000
LDI R16,0b10000000
MOV R17,R16
; saut boucleB
JMP boucleB
boucleB:
; On affiche l'état courant
out portb,r17
call tempo;
; On calcule l'état suivant
lsr r17
; si r17 > 0 saut boucleB
MOV R16,R17
PUSH R16
LDI R16,0
POP R17
CP R17,R16
BREQ eti3
BRLO eti3
LDI R16,0x01
RJMP eti4
eti3:
CLR R16
eti4:
TST R16
BREQ eti5
JMP boucleB
eti5:
out portb,r17
; r17 <- 0x01
LDI R16,0x01
MOV R17,R16
; saut boucleA
JMP boucleA
tempo:
; On fait une pause
ldi r24,8
tempoA:
subi r22,1
sbci r23,0
sbci r24,0
brcc tempoA
ret