-
Notifications
You must be signed in to change notification settings - Fork 0
/
horlogeplusbien.s
355 lines (327 loc) · 14 KB
/
horlogeplusbien.s
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
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
166
167
168
169
170
171
172
173
174
175
176
177
178
179
180
181
182
183
184
185
186
187
188
189
190
191
192
193
194
195
196
197
198
199
200
201
202
203
204
205
206
207
208
209
210
211
212
213
214
215
216
217
218
219
220
221
222
223
224
225
226
227
228
229
230
231
232
233
234
235
236
237
238
239
240
241
242
243
244
245
246
247
248
249
250
251
252
253
254
255
256
257
258
259
260
261
262
263
264
265
266
267
268
269
270
271
272
273
274
275
276
277
278
279
280
281
282
283
284
285
286
287
288
289
290
291
292
293
294
295
296
297
298
299
300
301
302
303
304
305
306
307
308
309
310
311
312
313
314
315
316
317
318
319
320
321
322
323
324
325
326
327
328
329
330
331
332
333
334
335
336
337
338
339
340
341
342
343
344
345
346
347
348
349
350
351
352
353
354
355
# Multiplication et division n'utilisant que l'addition, la soustraction, et le
# décalage à gauche ou à droite.
# La multiplication ne se comporte probablement pas bien sur des nombres
# négatifs, la division échoue lamentablement. Par ailleurs, aucun test n'est
# fait pour vérifier que l'on ne divise pas par 0, l'algorithme part en boucle
# infinie si c'est le cas.
.text
main:
# On sauvegarde $ra
addi $sp, $sp, 4
sw $ra, 0($sp)
# On récupère le timestamp que l'on met dans $s7
li $t0, timestamp
lw $s7, 0($t0)
#li $s7, 1327338988
# On calcule le nombre de jours écoulés depuis le 01/01/1970
move $a0, $s7
li $a1, 86400
jal diviser
move $s0, $v0 # $s0 = nombre de jours écoulés
# ---- Calcul de l'heure ----
# Calcul du nombre de secondes depuis le début de la journée
move $a0, $s0
li $a1, 86400
jal multiplier
sub $s1, $s7, $v0 # $s1 = "reste" en secondes
# Calcul de l'heure
move $a0, $s1
li $a1, 3600
jal diviser
move $s2, $v0 # $s2 = Heures
# Affichage de l'heure
add $t0, $s2, $s2
li $t5, two_digits_to_segments
add $t0, $t0, $t5
lb $t1, 0($t0)
la $t2, clock_display
sb $t1, 0($t2)
add $t0, $s2, $s2
addi $t0, $t0, 1
li $t5, two_digits_to_segments
add $t0, $t0, $t5
lb $t1, 0($t0)
sb $t1, 1($t2)
move $a0, $s2
li $a1, 3600
jal multiplier
sub $s1, $s1, $v0 # $s1 = "reste"
move $a0, $s1
li $a1, 60
jal diviser
move $s3, $v0 # $s3 = Minutes
# Affichage des minutes
add $t0, $s3, $s3
li $t5, two_digits_to_segments
add $t0, $t0, $t5
lb $t1, 0($t0)
la $t2, clock_display
sb $t1, 2($t2)
add $t0, $s3, $s3
addi $t0, $t0, 1
li $t5, two_digits_to_segments
add $t0, $t0, $t5
lb $t1, 0($t0)
sb $t1, 3($t2)
move $a0, $s3
li $a1, 60
jal multiplier
sub $s4, $s1, $v0 # $s4 = Secondes
# Affichage des secondes
add $t0, $s4, $s4
li $t5, two_digits_to_segments
add $t0, $t0, $t5
lb $t1, 0($t0)
la $t2, clock_display
sb $t1, 4($t2)
add $t0, $s4, $s4
addi $t0, $t0, 1
li $t5, two_digits_to_segments
add $t0, $t0, $t5
lb $t1, 0($t0)
sb $t1, 5($t2)
# ---- Calcul de la date ----
# On commence par rajouter un décalage pour les années bissextiles
# Dans le cas absurde où on se trouverait avant le premier décalage, on
# ne fait rien du tout
li $t0, 68256000
bgt $t0, $s7, antibug
# On veut donc savoir combien de 29 févriers on doit rajouter
# artificiellement (information mise dans $s1). On commence par mettre
# le point de départ du comptage le 1er Mars 1970
addi $s6, $s0, -59 # 31+28
li $s1, 0
move $a0, $s6
li $a1, 1461 # 4*365 + 1
jal diviser
move $s5, $v0 # $s5 = Nombre de paquets de 4 ans
move $a0, $v0
li $a1, 1461
jal multiplier
sub $s6, $s6, $v0 # $s6 = "reste"
move $a0, $s5
li $a1, 3 # 3 corrections en 4 ans
jal multiplier
add $s1, $s1, $v0 # Corrections par paquets de 4 ans
addi $s1, $s1, 1
li $t0, 366
bgt $t0, $s6, finbissextile
addi $s1, $s1, 1
li $t0, 1097
bgt $t0, $s6, finbissextile
addi $s1, $s1, 1
finbissextile:
# 2000 n'est pas une année bissextile
li $t0, 951868799
bgt $t0, $s7, antibug
addi $s1, $s1, 1
antibug:
# Et on effectue la correction calculée dans $s1
add $s0, $s0, $s1 # Rappel // $s0 = Jours depuis le 01/01/1970
# Maintenant on a facilement l'année
li $s6, 0
move $a0, $s0
li $a1, 366
jal diviser
move $s6, $v0 # $s6 = Année
move $a0, $s6
# On trouve le mois en mode "gros sac"
move $a0, $s6
li $a1, 366
jal multiplier
sub $s4, $s0, $v0 # $s4 = Nombre de jours depuis le début de l'année
li $s5, 1 # $s5 = Mois
li $t1, 0
li $t0, 32 # Janvier + 1 (à cause de la comparaison stricte)
bgt $t0, $s4, moistrouve
addi $s5, $s5, 1
li $t4, 2
sub $t1, $t0, $t4
addi $t0, $t0, 29 # Février
bgt $t0, $s4, moistrouve
addi $s5, $s5, 1
move $t1, $t0
addi $t0, $t0, 31 # Mars
bgt $t0, $s4, moistrouve
addi $s5, $s5, 1
move $t1, $t0
addi $t0, $t0, 30 # Avril
bgt $t0, $s4, moistrouve
addi $s5, $s5, 1
move $t1, $t0
addi $t0, $t0, 31 # Mai
bgt $t0, $s4, moistrouve
addi $s5, $s5, 1
move $t1, $t0
addi $t0, $t0, 30 # Juin
bgt $t0, $s4, moistrouve
addi $s5, $s5, 1
move $t1, $t0
addi $t0, $t0, 31 # Juillet
bgt $t0, $s4, moistrouve
addi $s5, $s5, 1
move $t1, $t0
addi $t0, $t0, 31 # Août
bgt $t0, $s4, moistrouve
addi $s5, $s5, 1
move $t1, $t0
addi $t0, $t0, 30 # Septembre
bgt $t0, $s4, moistrouve
addi $s5, $s5, 1
move $t1, $t0
addi $t0, $t0, 31 # Octobre
bgt $t0, $s4, moistrouve
addi $s5, $s5, 1
move $t1, $t0
addi $t0, $t0, 30 # Novembre
bgt $t0, $s4, moistrouve
addi $s5, $s5, 1
move $t1, $t0
moistrouve:
move $a0, $s5 # $s5 = Mois
sub $s4, $s4, $t1
move $a0, $s4 # $s4 = Jour
# Affichage de la date
# Jour
add $t0, $s4, $s4
li $t5, two_digits_to_segments
add $t0, $t0, $t5
lb $t1, 0($t0)
la $t2, clock_display
sb $t1, 6($t2)
add $t0, $s4, $s4
addi $t0, $t0, 1
li $t5, two_digits_to_segments
add $t0, $t0, $t5
lb $t1, 0($t0)
sb $t1, 7($t2)
# Mois
add $t0, $s5, $s5
li $t5, two_digits_to_segments
add $t0, $t0, $t5
lb $t1, 0($t0)
la $t2, clock_display
sb $t1, 8($t2)
add $t0, $s5, $s5
addi $t0, $t0, 1
li $t5, two_digits_to_segments
add $t0, $t0, $t5
lb $t1, 0($t0)
sb $t1, 9($t2)
# Années
add $t0, $s6, $s6
add $t0, $t0, $t0
li $t5, year_to_segments
add $t0, $t0, $t5
lw $t1, 0($t0)
la $t2, clock_display
addi $t2, $t2, 10
sw $t1, 0($t2)
#li $a0, 22742
#li $a1, 17
#jal diviser
#move $a0, $v0
#jal print_int
#li $a0, 42
#li $a1, 17
#jal multiplier
#move $a0, $v0
#jal print_int
# On récupère $ra
lw $ra, 0($sp)
addi $sp, $sp, -4
jr $ra
# Affiche l'entier présent dans le registre $a0, suivi d'un retour à la ligne
#print_int:
#li $v0, 1
#syscall
#li $v0, 4
#la $a0, newline
#syscall
#jr $ra
# Multiplie les deux entiers contenus dans $a0 et $a1
# Renvoie le résultat dans $v0
multiplier:
# Si $a1 = 0, on met $a0 = 0
bne $a1, $zero, multiplier_debut
li $a0, 0
multiplier_debut:
# Si $a1 = 1, on va directement à la sortie en renvoyant $a0
move $v0, $a0
li $t0, 1
beq $a1, $t0, multiplier_fin
# Sinon, on va avoir besoin d'appeller la fonction "récursivement", donc
# on sauvegarde $ra
addi $sp, $sp, 4
sw $ra, 0($sp)
# On stocke ce qu'on rajoute au résultat en fonction de la parité de $a1
addi $sp, $sp, 4
sw $zero, 0($sp)
andi $t0, $a1, 1
beq $t0, $zero, multiplier_fintest
sw $a0, 0($sp)
multiplier_fintest:
# On divise $a1 par 2 et on fait un bel appel récursif
srl $a1, $a1, 1
jal multiplier
# On multiplie par 2 le résultat
add $v0, $v0, $v0
# On ajoute ce qu'on avait stocké tout à l'heure
lw $t0, 0($sp)
addi $sp, $sp, -4
add $v0, $v0, $t0
# On récupère $ra
lw $ra, 0($sp)
addi $sp, $sp, -4
multiplier_fin:
jr $ra
# Divise l'entier contenu dans $a0 par celui contenu dans $a1
# Renvoie le résultat dans $v0
diviser:
# On sauvegarde $ra
addi $sp, $sp, 4
sw $ra, 0($sp)
# On initialise le résultat de l'opération
li $v0, 0
diviser_debut:
# On regarde si $a1 est plus grand que $a0, dans ce cas on a fini
bgt $a1, $a0, diviser_fin
# Sinon, on met $a1 dans $t1 et on l'augmente jusqu'à dépasser $a0
move $t1, $a1
li $t2, 1
diviser_petiteboucle:
bgt $t1, $a0, diviser_finpetiteboucle
add $t1, $t1, $t1
add $t2, $t2, $t2
j diviser_petiteboucle
diviser_finpetiteboucle:
# On est allés un cran trop loin, on corrige ça
# (nb : il doit y avoir une méthode plus propre, mais là j'ai la flemme)
srl $t1, $t1, 1
srl $t2, $t2, 1
# On a bien positionné "$a1" (dans $t1), on l'enlève à $a0 en rajoutant
# ce qu'il faut au quotient
sub $a0, $a0, $t1
add $v0, $v0, $t2
j diviser_debut
diviser_fin:
# On récupère $ra
lw $ra, 0($sp)
addi $sp, $sp, -4
jr $ra
.data
newline:
.asciiz "\n"
#.align 2
year_to_segments:
.byte 0x06, 0x6F, 0x07, 0x3F, 0x06, 0x6F, 0x07, 0x06, 0x06, 0x6F, 0x07, 0x5B, 0x06, 0x6F, 0x07, 0x4F, 0x06, 0x6F, 0x07, 0x66, 0x06, 0x6F, 0x07, 0x6D, 0x06, 0x6F, 0x07, 0x7D, 0x06, 0x6F, 0x07, 0x07, 0x06, 0x6F, 0x07, 0x7F, 0x06, 0x6F, 0x07, 0x6F, 0x06, 0x6F, 0x7F, 0x3F, 0x06, 0x6F, 0x7F, 0x06, 0x06, 0x6F, 0x7F, 0x5B, 0x06, 0x6F, 0x7F, 0x4F, 0x06, 0x6F, 0x7F, 0x66, 0x06, 0x6F, 0x7F, 0x6D, 0x06, 0x6F, 0x7F, 0x7D, 0x06, 0x6F, 0x7F, 0x07, 0x06, 0x6F, 0x7F, 0x7F, 0x06, 0x6F, 0x7F, 0x6F, 0x06, 0x6F, 0x6F, 0x3F, 0x06, 0x6F, 0x6F, 0x06, 0x06, 0x6F, 0x6F, 0x5B, 0x06, 0x6F, 0x6F, 0x4F, 0x06, 0x6F, 0x6F, 0x66, 0x06, 0x6F, 0x6F, 0x6D, 0x06, 0x6F, 0x6F, 0x7D, 0x06, 0x6F, 0x6F, 0x07, 0x06, 0x6F, 0x6F, 0x7F, 0x06, 0x6F, 0x6F, 0x6F, 0x5B, 0x3F, 0x3F, 0x3F, 0x5B, 0x3F, 0x3F, 0x06, 0x5B, 0x3F, 0x3F, 0x5B, 0x5B, 0x3F, 0x3F, 0x4F, 0x5B, 0x3F, 0x3F, 0x66, 0x5B, 0x3F, 0x3F, 0x6D, 0x5B, 0x3F, 0x3F, 0x7D, 0x5B, 0x3F, 0x3F, 0x07, 0x5B, 0x3F, 0x3F, 0x7F, 0x5B, 0x3F, 0x3F, 0x6F, 0x5B, 0x3F, 0x06, 0x3F, 0x5B, 0x3F, 0x06, 0x06, 0x5B, 0x3F, 0x06, 0x5B, 0x5B, 0x3F, 0x06, 0x4F, 0x5B, 0x3F, 0x06, 0x66, 0x5B, 0x3F, 0x06, 0x6D, 0x5B, 0x3F, 0x06, 0x7D, 0x5B, 0x3F, 0x06, 0x07, 0x5B, 0x3F, 0x06, 0x7F, 0x5B, 0x3F, 0x06, 0x6F, 0x5B, 0x3F, 0x5B, 0x3F, 0x5B, 0x3F, 0x5B, 0x06, 0x5B, 0x3F, 0x5B, 0x5B, 0x5B, 0x3F, 0x5B, 0x4F, 0x5B, 0x3F, 0x5B, 0x66, 0x5B, 0x3F, 0x5B, 0x6D, 0x5B, 0x3F, 0x5B, 0x7D, 0x5B, 0x3F, 0x5B, 0x07, 0x5B, 0x3F, 0x5B, 0x7F, 0x5B, 0x3F, 0x5B, 0x6F, 0x5B, 0x3F, 0x4F, 0x3F, 0x5B, 0x3F, 0x4F, 0x06, 0x5B, 0x3F, 0x4F, 0x5B, 0x5B, 0x3F, 0x4F, 0x4F, 0x5B, 0x3F, 0x4F, 0x66, 0x5B, 0x3F, 0x4F, 0x6D, 0x5B, 0x3F, 0x4F, 0x7D, 0x5B, 0x3F, 0x4F, 0x07, 0x5B, 0x3F, 0x4F, 0x7F
#.align 2
two_digits_to_segments:
.byte 0x3F, 0x3F, 0x3F, 0x06, 0x3F, 0x5B, 0x3F, 0x4F, 0x3F, 0x66, 0x3F, 0x6D, 0x3F, 0x7D, 0x3F, 0x07, 0x3F, 0x7F, 0x3F, 0x6F, 0x06, 0x3F, 0x06, 0x06, 0x06, 0x5B, 0x06, 0x4F, 0x06, 0x66, 0x06, 0x6D, 0x06, 0x7D, 0x06, 0x07, 0x06, 0x7F, 0x06, 0x6F, 0x5B, 0x3F, 0x5B, 0x06, 0x5B, 0x5B, 0x5B, 0x4F, 0x5B, 0x66, 0x5B, 0x6D, 0x5B, 0x7D, 0x5B, 0x07, 0x5B, 0x7F, 0x5B, 0x6F, 0x4F, 0x3F, 0x4F, 0x06, 0x4F, 0x5B, 0x4F, 0x4F, 0x4F, 0x66, 0x4F, 0x6D, 0x4F, 0x7D, 0x4F, 0x07, 0x4F, 0x7F, 0x4F, 0x6F, 0x66, 0x3F, 0x66, 0x06, 0x66, 0x5B, 0x66, 0x4F, 0x66, 0x66, 0x66, 0x6D, 0x66, 0x7D, 0x66, 0x07, 0x66, 0x7F, 0x66, 0x6F, 0x6D, 0x3F, 0x6D, 0x06, 0x6D, 0x5B, 0x6D, 0x4F, 0x6D, 0x66, 0x6D, 0x6D, 0x6D, 0x7D, 0x6D, 0x07, 0x6D, 0x7F, 0x6D, 0x6F, 0x7D, 0x3F, 0x7D, 0x06, 0x7D, 0x5B, 0x7D, 0x4F, 0x7D, 0x66, 0x7D, 0x6D, 0x7D, 0x7D, 0x7D, 0x07, 0x7D, 0x7F, 0x7D, 0x6F, 0x07, 0x3F, 0x07, 0x06, 0x07, 0x5B, 0x07, 0x4F, 0x07, 0x66, 0x07, 0x6D, 0x07, 0x7D, 0x07, 0x07, 0x07, 0x7F, 0x07, 0x6F, 0x7F, 0x3F, 0x7F, 0x06, 0x7F, 0x5B, 0x7F, 0x4F, 0x7F, 0x66, 0x7F, 0x6D, 0x7F, 0x7D, 0x7F, 0x07, 0x7F, 0x7F, 0x7F, 0x6F, 0x6F, 0x3F, 0x6F, 0x06, 0x6F, 0x5B, 0x6F, 0x4F, 0x6F, 0x66, 0x6F, 0x6D, 0x6F, 0x7D, 0x6F, 0x07, 0x6F, 0x7F, 0x6F, 0x6F
# --- TOUTE LA FIN EST À COMMENTER LORS DES TESTS FINAUX ---
#timestamp:
#.word 1327345992
#.align 2
#.byte 0x00, 0x00
#clock_display:
#.byte 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x42, 0x42, 0x42, 0x42, 0x42, 0x42, 0x42, 0x42, 0x42, 0x42, 0x42, 0x42, 0x42, 0x42, 0x42, 0x42, 0x42, 0x42, 0x42, 0x42