diff --git a/principal.txt b/principal.txt
index 20f319b..8f412eb 100644
--- a/principal.txt
+++ b/principal.txt
@@ -110,7 +110,7 @@ debut:
     t1 <- 34
     t0 <- 28
 
-    selaff <- 0b00000001
+    selaff <- 0b11110111
     etat <- 0
     call afficherHorloge
 
@@ -345,7 +345,7 @@ etatParaTNuitC:
 
 etatMenuHorloge:
     etat <- 21
-    d3 <- 0xf6
+    d3 <- 0x76 ; "HORL"
     d2 <- 0x5c
     d1 <- 0x44
     d0 <- 0x0E
@@ -353,7 +353,7 @@ etatMenuHorloge:
 
 etatMenuHJour:
     etat <- 22
-    d3 <- 0x3c
+    d3 <- 0x3c ; "JOUR"
     d2 <- 0x5c
     d1 <- 0x1c
     d0 <- 0x44
@@ -361,7 +361,7 @@ etatMenuHJour:
 
 etatMenuHHeur:
     etat <- 23
-    d3 <- 0x76
+    d3 <- 0x76 ; "HEUR"
     d2 <- 0xcf
     d1 <- 0x1c
     d0 <- 0x44
@@ -369,7 +369,7 @@ etatMenuHHeur:
 
 etatMenuHMinu:
     etat <- 24
-    d3 <- 0x37
+    d3 <- 0x37 ; "MINU"
     d2 <- 0x04
     d1 <- 0x54
     d0 <- 0x1c
@@ -522,12 +522,12 @@ eteindreChaudiere:
 ; Interruption timer
 timer:
     ; Affiche le digit suivant sur l'afficheur 7seg
-    lsl selaff
-    si selaff > 0b00001000 alors selaff <- 0b00000001
-    PORTC@IO <- 0xff - selaff
-    si selaff = 0b00000001 alors PORTA@IO <- d0
-    si selaff = 0b00000010 alors PORTA@IO <- d1
-    si selaff = 0b00000100 alors PORTA@IO <- d2
-    si selaff = 0b00001000 alors PORTA@IO <- d3
+    lsr selaff
+    si selaff < 0b00001111 alors selaff <- 0b11110111
+    PORTC@IO <- selaff
+    si selaff = 0b11110111 alors PORTA@IO <- d3
+    si selaff = 0b01111011 alors PORTA@IO <- d2
+    si selaff = 0b00111101 alors PORTA@IO <- d1
+    si selaff = 0b00011110 alors PORTA@IO <- d0
     reti
 
--
libgit2 0.21.2