bb38f35f
 Geoffrey PREUD'HOMME
Test ADC effectué...
|
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
|
.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 TTCR0A = 0x24 ; Initialisation du timer
.equ TTCR0B = 0x25
.equ TMSK0 = 0x6e
.equ SREG = 0x3F
.equ RAMEND = 0x21FF
.equ SPH = 0x3E ; initialisation de la pile
.equ SPL = 0x3D
.equ ADMUX = 0x7C
.equ ADCSRB = 0x7B
.equ ADCSRA = 0x7A
.equ ADCH = 0x79
.def selAfficheur = r19
.def tmp = r20
.def val = r21
.def aff0 = r5
.def aff1 = r1
.def aff2 = r2
.def aff3 = r3
.org 0x000
; Vecteur RESET
jmp debut
.org 0x002e
; Vecteur TIMER0
jmp tmr
.org 0x003A ; ADC
jmp adc
.org 0x0080
afficheur:
.DB 0x3F, 0x30, 0x6D, 0x79, 0x72, 0x5B, 0x5F, 0x31, 0x7F, 0x7B, 0x77, 0x40, 0x4c, 0x7c, 0x4f, 0x47, 0x40, 0x76, 0x04, 0x3c, 0x40, 0x0E, 0x37, 0x54, 0x5c, 0x40, 0x40, 0x44, 0x5b, 0x4e, 0x1c, 0x1c, 0x40, 0x40, 0x40, 0x40, 0x63, 0x00
; 0, 1, 2, 3, 4, 5, 6, 7, 8, 9, a, b, c, d, e, f, g, h, i, j, k, l, m, n, o, p, q, r, s, t, u, v, w, x, y, z, °, space
debut:
SREG <- 0b10000000
DDRA@IO <- 0xFF
DDRC@IO <- 0xFF
TTCR0A@IO <- 0x01
TTCR0B@IO <- 0x03
TMSK0 <- 0x01
selAfficheur <- 0x01
ADMUX <- 0b01100000
ADCSRB <- 0b00000010
ADCSRA <- 0b11011110
PORTA@IO <- 0xAA
PORTC@IO <- 0x00
SEI
boucle:
; On attend et on recommence
saut boucle
tempo:
ldi r24,8
tempoA:
subi r22,1
sbci r23,0
sbci r24,0
brcc tempoA
ret
adc:
val <- ADCH
aff0 <- val/1-(val/10)*10
aff1 <- val/10-(val/100)*10
aff2 <- val/100
aff3 <- 0
ADCSRA <- 0b11011101
reti
tmr:
lsl selAfficheur
si selAfficheur > 8 alors selafficheur <- 1
portc@IO <- 0xff - selAfficheur
si selAfficheur == 1 alors porta@IO <- afficheur@ROM[aff0]
si selAfficheur == 2 alors porta@IO <- afficheur@ROM[aff1]
si selAfficheur == 4 alors porta@IO <- afficheur@ROM[aff2]
si selAfficheur == 8 alors porta@IO <- afficheur@ROM[aff3]
reti
|